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O Ordenadores, 
minis y micros 


NO de los puntos más 
ambiguos en el cam- 
po informático se 
refiere a la clasifica- 
ción de computado- 
res. Una primera divi- 
sión se podría basar 
en el iamaño, capa- 
cidad y potencia. Atendiendo a estos 
puntos, los grupos principales serían: or- 
denadores, miniordenadores y microor- 
denadores. Sin embargo, profundizando 
más en el tema aún podríamos añadir or- 
denadores mucho más potentes como: 
mainframes, superordenadores y ordena- 
dores especializados. 

En este tema nos vamos a dedicar a es- 
tudiar detenidamente cada uno de estos 
grupos... 


(m Ordenadores 


Dentro de este tipo se encuentran 
aquéllos que realizan muchos trabajos al 
día, es decir, son los utilizados en empre- 
sas donde se necesita procesar gran 
cantidad de datos. Esto supone que di- 
chos ordenadores tengan una serie de 
características fundamentales: 


— Al tener que tratar mucha informa- 
ción, la cantidad de datos con que tra- 
bajan será bastante alta; esto requiere 
unas memorias principales con gran ca- 
pacidad. 

— Por otro lado, como en las empre- 
sas normalmente se tienen tuertes restric- 
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ORDENADORES: TIPOS Y TAMAÑOS 


ciones de tiempo, las exigencias en 
cuanto a rapidez en el proceso de infor- 
mación también son grandes. Por esto es 
necesaria la utilización de programas de 
alto nivel cuyas instrucciones son com- 
plejas. Este punto influiría también en que 
las memorias no son sólo de gran capa- 
cidad, sino también de gran rapidez. 

— Normalmente, la adopción de gran- 
des ordenadores obliga a realizar fuertes 
inversiones, tanto por lo caros que resul- 
tan los equipos, como por las instalacio- 
nes que requieren: locales auxillares am- 
plios y diáfanos, dotados de aire acondi- 
cionado, etc. 

— En cuanto al equipo humano, no 
sólo tiene que ser numeroso, sino que, 
además, debe estar especializado en los 
lenguajes de explotación y manipula- 
ción del equipo. 


(m Miniordenadores 


Cuando la complejidad o las caracte- 
físticas de las aplicaciones no requieren 
la utilización de equipos tan grandes, se 
recomienda instalar este otro tipo. Aun- 
que de tamaño reducido, al igual que su 
costo, sus funciones son las mismas que 
las de los ordenadores. 


— Las memorias, por tanto, también 
serán más pequeñas; nunca necesitarán 
almacenar tanta información como en el 
primer caso. 

— Generalmente sólo ejecuta un pro- 
grama cada vez. 

— Esta característica anterior repercu- 
te en que el húmero de usuarios que ac- 
ceden a la vez será más restringido. 


En cuanto a las aplicaciones que sue- 
len realizar están: 


— Control de procesos: es capaz de 
determinar el estado de un proceso y lle- 
var a cabo su corrección, si es preciso, 
mediante las señales que capta y emite. 
Como ejemplo, podría ser el control de 
calidad, inspección material, etc. 

— Comunicaciones: en este campo es 
donde los minis se encuentran en cons- 
tante desarrollo. Sus aplicaciones típicas 
son: reserva de billetes, transmisión de 
mensajes, etc. 

— Sistemas de información: aunque 
estas aplicaciones son más típicas de los 
ordenadores más grandes, también los 
minis pueden realizar estas labores típi- 
cas de mecanización, como los sistemas 
comerciales, financieros, de gestión, etc. 


CHIP 


[A Los circuitos integrados en una sola 
pastilla (CHIP) ha sido determinante para 
la aparición de los “minis” y “micros”. 


DO Microordenadores 


El tamaño es el más reducido de toda 
la clasificación. El descubrimiento del si- 
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licio ha hecho que la CPU, que en un prin- 
cipio estaba compuesta por multitud de 
transistores, quede muy reducida en 
cuanto a tamaño con la posibilidad de 
integrar todos sus componentes en una 
única pastilla. Es muy difícil prever el de- 
sarrollo en la reducción de componen- 
tes, sin embargo, con los nuevos avances 
en fotolitografía (grabación por medio 
de la acción de la luz) se conseguirá una 
mayor integración de los componentes. 

Por tanto, las principales característi- 
cas de los microordenadores son: 


— Están compuestos internamente de 
una única pastilla de: CPU, es decir, sólo 
un procesador es el responsable del fun- 
cionamiento de todo el micro. 

— Las instrucciones utilizadas en los 
programas también son más sencillas, 
actuando sobre palabras de 4, 8, o 16 
bits. 

— El precio es bastante bajo, en com- 
paración con los otros grupos vistos an- 
teriormente; esto ha contribuido a su 
gran difusión, sobre todo en el campo de 
la enseñanza. 

— Se harestringido su uso a aplicacio- 
nes particulares, como: 

— Control de periféricos: pudiendo la 
CPU quedar libre para ejecutar otras ta- 
reas. 

— Toma de datos: el micro puede re- 
cibir datos de diversas fuentes, los pue- 
de tratar según el programa que esté 
cargado. 


[A Otra forma de poder ampliar las posibilidades de acceso a mayor volumen de información 
es la conexión de micros mediante las llamadas REDES DE ORDENADORES. 
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'¡D Mainframes 


La avidez de información ha hecho que 
los pequeños usuarios tengan necesidad 
de comunicarse con los grandes ordena- 
dores y así tener acceso a grandes can- 
tidades de información, que en un pe- 
queño ordenador no sería posible alma- 
cenar. Basándose en esta necesidad, las 
grandes empresas fabricantes de orde- 
nadores han creado los “mainframes”, 
de manera que sus micros y miniordena- 
dores puedan ser conectados a éstos y 
ampliar así su relativamente pequeña 
capacidad. 

Los principales usuarios de este tipo de 
relación son los centros de cálculo, que, 
disponiendo de un ordenador grande, 
conectan a su alrededor una serie de pe- 
queños ordenadores que juntos crean un 
potente sistema, pudiendo a su vez fun- 
cionar autónomamente. Al estar com- 
puesto por ordenadores de bajo coste 
este sistema se hace enormemente eficaz, 


Características de los mainframes 


— Los mainframes se diferencian de 
los minis y microordenadores en que 
mientras los minis y micros han sido dise- 
ñados para tareas específicas, los main- 
frames pueden ser utilizados en todo tipo 
de tareas. Si bien es cierto que los micros 
y minis son utilizados en la actualidad 
para todo tipo de tareas. 

— Debido al alto coste de los mainfra- 
mes, su número es bastante reducido; sin 
embargo, su potencial es mucho mayor 
y su utilidad supera con mucho a la de 
los pequeños equipos. A pesar de todo, 
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un gran sistema desde pequeño equipo 
se hacen conexiones entre los grandes 
ordenadores y microordenadores compatibles. 


lA Para poder acceder a la información de 


MAINFRAME 


la ventaja de los pequeños ordenadores 
en su relación precio-potencia sigue 


” siendo muy superior. 


— Con la aparición de los micros y mi- 
niordenadores, se han creado una serie 
de empresas, dedicadas al diseño de 
software específico para los mainframes, 
provocándose así una importante dife- 
rencia entre unos y otros. 


¡O Ordenadores especializados 


La gran variedad de posibilidades que 
ofrece hoy la informática ha hecho que 
las empresas que deciden informatizar su 
funcionamiento soliciten la creación de 
equipos informáticos especialmente 
diseñados para éstas, de manera que 
puedan ser satisfechas sus necesidades. 

Seria imposible catalogar todos estos 
equipos, pues su crecimiento es cada 
vez mayor y abarca prácticamente todos 
los campos y facetas posibles. 

Podemos tomar como ordenadores es- 
pecializados más importantes, en base a 
su gran desarrollo: el procesador de imá- 
genes, los sistemas robots y el sistema de 
diseño mecanizado. 


Procesador de imágenes 


Este sistema ha sido muy desarrollado; 
en la actualidad han conseguido mejo- 
rar, incluso, la fotografía original. El pro- 
ceso consiste en convertir la información 
que proporciona una imagen dada a in- 
formación digital, para su posterior mani- 
pulación con el ordenador. De esta for- 
ma podemos mejorar la calidad de una 
imagen que no esté en condiciones óp- 
timas, si conocemos las razones de su fal- 
ta de calidad y las rectificamos. 

Para la conversión de la imagen ana- 
lógica en digital, utilizamos un aparato 
llamado “microdensimetro”. Este hace 
pasar un haz de luz colimado (es decir, 
cuyos rayos son paralelos) a través de la. 
imagen en un soporte parecido al de la 
diapositiva fotográfica. La luz que pasa a 
través de la fotografía es recogida y 
transformada en impulsos analógicos por 
medio de un “fotomultiplicador”, que ge- 
nera una señal eléctrica cuya intensidad 
está en función del brillo de cada punto 
de imagen. Después, la señal analógica 
es digitalizada con un cuantizador, que 
lo transmite al ordenador. Este sistema no 


sólo permite mejorar una imagen sino 
que también podemos describir ésta me- 
diante escritura, lo que permite hacer el 
proceso contrario, a partir de información 
escrita podemos obtener una imagen. 


Sistemas robot 


Los robots actuales tienen su origen en 
los autómatas que aparecieron en Euro- 
pa en los siglos XVIII y XIX, aunque en 
esta época eran considerados como 
algo “mágico”. 

Actualmente, puede hablarse clara- 
mente de dos tipos de robots. Los prime- 
ros son los dependientes de un ordena- 
dor central que les facilita la información 
para desempeñar una determinada fun- 
ción. Estos se utilizan ya en empresas y 
cadenas de montaje, siendo capaces in- 
cluso de tomar decisiones no determina- 
das “a priori”, pero siempre dentro de un 


medio predeterminado. La movilidad de 


estos robots está limitada a su medio, es 
decir, a su campo de trabajo. 

El segundo tipo,de robots son los llama- 
dos autónomos, es decir, robots capaces 
de determinar el medio en el que se en- 
cuentran y desenvolverse en él. Tal es el 
caso del robot desarrollado en el MIT 
(Massachusetts Institute of Technology), 
que posee tres niveles de “inteligencia”, 
correspondientes a tres etapas super- 
puestas de ordenadores. Un nivel para el 
reconocimiento del espacio y medio en 
que se desenvuelve; un segundo nivel 
para el reconocimiento de obstáculos y 
un tercer nivel que decide cuál es el ca- 
mino más factible para evolucionar. Ac- 
tualmente este tipo de sistemas robots 
está en vías de desarrollo; sin embargo, 
su utilización en actividades que resultan 
peligrosas para el hombre, como puede 
ser la manipulación de materiales ra- 
diactivos, explosivos, etc., está suficien- 
temente probada y justificada. 
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Sistema de diseño mecanizado 


Ha sido creada una serie de ordenado- 
res especializados en el tratamiento de 
diseños. Estos hacen que el proceso que 
transcurre desde que se concibe un dise- 
ño hasta que se elabora sea acortado 
enormemente, puesto que el paso inter- 
medio de su plasmación en el papel ha 
sido automatizado. Un operador, me- 
diante un lápiz óptico, puede mover y 
corregir en muy poco tiempo todo cuan- 
to quiera. 

Actualmente el diseño por ordenador 
está alcanzando unas cotas realmente 
altas, ya que su comodidad y rapidez 
dan lugar a un mayor tiempo para la 
creación. De esta manera, están surgien- 
do nuevas facetas en el diseño por orde- 
nador como es el caso de la “animación 
por ordenador”, que se basa en la crea- 
ción, por medio de complejos progra- 
mas, de imágenes animadas. Este tipo de 
diseño está abarcando todo tipo de 
campos, desde el publicitario, hasta el 
artístico. Sus grandes posibilidades se 
deben a que, como se trabaja en un es- 
pacio totalmente creado, es a su vez to- 
talmente transformable. 


'Q Superordenadores 


Considerados como auténticas rare- 
zas, no existen hoy en el mundo más de 
sesenta superordenadores. Tan sólo al- 
gunas, poderosas, entidades sacan par- 
tido de estas poderosas máquinas (cen- 
tros científicos y militares). 

De momento, sólo hay dos marcas en 
el mercado: los CRAY, de Cray Research 
y los CYBER, de Control Data Corporation; 
aunque hay que destacar los esfuerzos 
de la empresa japonesa FUJITSU, que in- 
tenta introducirse en el reducido grupo. 

Estos ordenadores son los “bichos ra- 
ros” de la informática, se les conoce con 
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LA Pasos necesarios para convertir señales luminosas en señales comprensibles por el 
ordenador especializado en el proceso de imágenes. 
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el nombre de “number crunchers” (tritu- 
radores de números) y es esto lo que 
realmente hacen. No existe entre ellos y 
el hombre un contacto directo (carecen 
de pantallas terminales); de ahí su difícil 
comparación con los mainframes, micros 
y miniordenadores. La comunicación en- 
tre éstos y el hombre se realiza a través 
de uno o varios ordenadores, denomina- 
dos “front-end”. Estos se ocupan de que 
el superordenador no desperdicie ni un 
ápice de su tiempo. 

Los superordenadores se emplean a 
fondo, en la simulación de complicados 
procesos en los llamados “modelos arit- 
méticos de tiempo real”. Algunos institu- 
tos meteorológicos utilizan estos superor- 
denadores para calcular la evolución de 
grandes zonas de bajas presiones. Tam- 
bién son utilizados en el diseño de avio- 
nes donde se encargan de calcular las 


turbulencias de aire alrededor del apa- 
rato; no obstante, los diseñadores han de 


- conformarse con estos cálculos en por- 


ciones, a partir de las cuales hacen un 
modelo del total y esperan que funcione. 

Estas poderosas máquinas realizan en- 
tre 20 y 30 millones de operaciones por 
segundo. Sin embargo, es posible conse- 
guir que la unidad de procesamiento, en 
su limite, llegue a producir impulsos cor- 
tos de 400 millones de operaciones por 
segundo. Aun así, los científicos estiman 
que son demasiado lentos. Su gran con- 
sumo y mantenimiento hace que estos 
ordenadores sean exclusivos de unos po- 
cos. Hemos de tener en cuenta que un 
Cray consume tanta electricidad como 
un edificio de oficinas de diez pisos y que 
el calor que produce debe ser disipado 
mediante una instalación de refrigera- 
ción especial a base de freón. 


Unidad Central 
de Procesos 


E suele considerar la 
«Unidad Central de 
Procesos» del orde- 
nador (CPU) como 
una «caja negra», es 


dad de la que no nos 
importa cómo está 
hecha sino cómo ejecutar las instruccio- 
nes. 

Desde este punto de vista, nos basta 
realmente con la descripción de las ins- 
trucciones con las que prepararemos los 
programas. 


Pero debemos ser conscientes de que 
la CPU es algo sumamente complejo, 
que está constituido por unidades más 
elementales. 

Los principales componentes del mi- 
croprocesador 8088 de Intel que consti- 
tuye la CPU del IBM PC son: 


e Una unidad de cálculo de direccio- 
nes de memoria. 

e Cuatro «registros de segmento» (lla- 
mados DS, ES, SS y CS). 

+. Un «registro apuntador de instruccio- 
nes» (llamado IP). 

+ Una unidad de preparación de ins- 
trucciones, que las lee de la memoria y 
las prepara en una cola de instrucciones. 

e Una unidad de control de ejecución, 
que toma las instrucciones de la cola y 
se las pasa a la unidad de ejecución. 


e Una unidad de ejecución, que es la ' 


que se encarga en último término de eje- 
cutar las instrucciones, y que se compo- 
ne a su vez de: 


— Una «unidad aritmética lógica», que, 
como su nombre indica, se encarga de 


decir, como una uni- : 
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realizar las operaciones aritméticas y ló- 
gicas. . 

— Cuatro «registros generales» (llama- 
dos AX, BX, CX y DX). 

>. Dos «registros índices» (llamados SI 
yD 

— Dos «registros apuntadores» (llama- 
dos SP y BP). 

— Un «registo de flags» compuesto por 
una serie de indicadores que influyen en 
la forma de ejecutarse muchas instruc- 
ciones. 


El siguiente esquema da una idea de la 
relación entre estos componentes: 


UNIDAD DE 
EJECUCION 


UNIDAD 
ARITMETICO 
LOGICA 


UNIDAD DE 
PREPARACION DE 
INSTRUCCIONES 


INTERFASE 
EXTERNA 
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[mu Registros 


De los componentes de la CPU citados, 
a los que más debemos prestar atención 
es a los registros, los cuales se manejan 
directamente en las instrucciones y son, 
por tanto, las piezas claves de la progra- 
mación. 


' Lo primero que puede llamar la aten- 
ción, es que los registros tienen nombres 
propios (AX, Sl, BP, etc.), mientras que en 
otras CPUs los registros están simplemen- 
te numerados. Esto no es un capricho, 
sino que está relacionado con una ca- 
racterística importante del 8088: «Los re- 
gistros desempeñan misiones especíti- 
cas en determinadas instrucciones», o 
dicho de otra forma: «muchas de las ins- 
trucciones del 8088 se ejecutan basán- 
dose en el contenido de determinados 
registros». Los nombres asignados están 
relacionados con los papeles desem- 
peñados en la ejecución de las instruc- 
ciones. 


La afirmación anterior quedará más 
clara con el siguiente ejemplo: la instruc- 
ción REPZ STOSW que apareció cuando 
«des-ensamblamos» el programa MAAQUI- 
NA (ver tomo primero), significa: «copiar 
una información repetidamente sobre 
una zona de memoria». Pues bien, en di- 
cha instrucción se presupone que el re- 
gistro AX contiene la información a co- 
piar, que el registro CX es el contador 
que contiene el número de copias a rea- 
lizar y que'los registros ES y DI definen la 
dirección de comienzo de la zona de 
memoria.deseada. 


Hay muchas instrucciones que, como 
ésta, operan con registros concretos, hay 
otras que se pueden usar con cualquier 
registro, y por último, hay otro grupo de 
instrucciones que se pueden usar con 
unos sí y con otros no. 


Pero pasemos a definir las característi- 
cas de los registros. Están constituidos 
por 16 bits, que se identifican con los nú- 
meros Dal 15. El bit O, que es el menos sig- 
nificativo, se representa en el lado dere- 
cho del registro, y el bit número 15, que 
es el más significativo, queda, por tanto, 
en el extremo izquierdo. 


Para verlo más claro, pongamos un 
ejemplo en el sistema decimal de nume- 


ración: en el número 7618, la cifra del ex- 
tremo derecho (el 8) es la menos signifi- 


- cativa (representa 8 unidades) y la cifra 


del extremo izquierdo (el 7) es la más sig- 
nificativa (ya que representa 7 millares). 

De igual forma, en el número binario de 
16 cifras: 1100110011001100, la cifra del 
extremo derecho, llamado bit O (que en 
el ejemplo es un 0), es la menos significa- 
tiva (representa O unidades), y la cifra 
del extremo izquierdo, llamada bit 15 
(que en el ejemplo es un 1), es la más sig- 
nificativa (ya que representa 1 x 32768). 

Los cuatro registros generales: AX, BX, 
CX y DX, están divididos en 2 registros mi- 
tades (que podemos llamar semirregis- 
tros) de 1 byte cada uno. Una mitad coin- 
cide con los bits 0 al 7, que son los bits 
menos significativos, y recibe el nombre 
de mitad «L» (inicial de la palabra ingle- 
sa «low», que quiere decir «bajo»). La otra 
mitad coincide con los bits 8 a 15, que 
son los bits más significativos, y recibe el 
nombre de mitad «H» (inicial de la pala- 
bra inglesa «high», que quiere decir 
«alto»). 

A la información que se guarda en un 
registro se le llama «palabra» y equivale 
a 2 bytes. Pues bien, un. registro como el 
AX se puede utilizar para almacenar 
«una palabra», referenciándolo con el 
nombre AX, o se puede utilizar para al- 
macenar «dos bytes», referenciándolo 
con los nombres AH (para el byte más sig- 
nificativo) y AL (para el menos). Lo mismo 
le ocurre a los registros BX, CX y DX que 
se pueden referenciar por estos nombres 
y por el nombre de sus mitades, BH y BL 
del primero, CH y CL del segundo, y DH y 
DL del tercero. Todo esto se resume en la 
figura siguiente. 


semi-registro semi-registro 


14 1512] 11/10 


byte más significativo 


byte menos significativo 


1] Conveniencia de la notación 
Dl hexadecimal 


En un semirregistro o byte de memoria 
se pueden dar 256 configuraciones de 
bits diferentes (2 elevado a 8), mientras 
que en un registro o en una palabra de 
memoria el número de configuraciones 
de bits es de 65536 (2 elevado a 16). 


Estos números, aparentemente tan ex- 
traños, aparecen porque la notación de- 
cimal que usamos no tiene relación di- 
recta con la notación binaria que usa la 
máquina. Sin embargo, la notación hexa- 
decimal sí tiene una relación directa con 
la binaria. En efecto, con cuatro dígitos 
binarios (4 bits) se pueden distinguir 16 
estados diferentes que pueden ser repre- 
sentados con una única cifra hexadeci- 
mal, del 0 a la F, realizando la siguiente 
correspondencia: 


bits  ? bits 


0000 
0001 
0010 
voti 
0100 


1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 


0101 
o110 
0111 


Y OO UNO 
NMONuDw0 


Como en las unidades de memoria usa- 
das (bytes y palabras) el número de bits 
es múltiplo de 4, tenemos en la notación 
hexadecimal una forma cómoda y con- 
cisa de representar la información mane- 
jada por el ordenador. 


Los 256 estados posibles asociados a 
los 8 bits de un byte se pueden represen- 
tar con los 256 números hexadecimales 
de dos cifras. La configuración de bits 
0000 0000 se representa por el hexade- 
cimal 00 (decimal 0) y la configuración 
1111 1111 se representa por el hexade- 
cimal FF (decimal 255). 


De la misma forma los 65536 estados di- 


ferentes en que pueden encontrarse los - 


16 bits de un registro, se pueden repre- 
sentar con los 65536 números hexadeci- 
males de 4 cifras. La configuración de 
bits 0DOOO 0000 0000 0000 se representa 
por el hexadecimal 0000 (decimal 0), 
mientras que la configuración 1111 1111 


1111 1111 se representa por el hexade- 
cimal FF (decimal 255). 


| Direccionamiento 
q de la memoria 


El microprocesador 8088 puede mane- 
jar 1 Megabyite de memoria, es decir, 
aproximadamente 1 millón de bytes. (El 
múmero exacto es 1024 x 1024 = 
1048576 bytes). Cada byte de memoria 
tiene asignado un número secuencial 
que va desde el O (0 hexadecimal) al 
1048575 (FFFFF hexadecimal), que es su 
dirección de memoria (dirección efecti- 
va), con la cual puede ser referenciado 
de forma inequívoca. La dirección de 
una palabra de memoria es la dirección 
del primero de sus dos bytes, que, curio- 
samente, es el menos significativo de los 
dos (ya explicaremos esto con más de- 
talle en otro lugar). 


Para referenciar todas esas direccio- 
nes hacen falta 20 bits, mientras que aca- 
bamos de ver que los registros tienen 16 
bits y sólo pueden contener 65536 valo- 
res diferentes. De esto se deduce que un 
único registro no puede servir para defi- 
nirtodas las direcciones de memoria que 
puede usar el microprocesador. 


Efectivamente, el 8088 usa siempre dos 
registros para calcular las direccciones 
de memoria y tiene un procedimiento 
particular de cálculo que vamos a ver a 
continuación. Los dos registros usados se 
denominan «registro de segmento» y «re- 
gistro de desplazamiento». Las direccio- 
nes efectivas de memoria las calcula el 
8088 multiplicando por 16 el número con- 
tenido en el «registro de segmento» y su- 
mándole el contenido del «registro 27 
desplazamiento». 


Hay que tener en cuenta que muttipll 
car por 16 en hexadecimal es igual de 
sencillo que multiplicar por 10 en deci- 
mal, es decir, basta con añadir un 0 a la 
derecha. 


Veamos un ejemplo. Si el «registro de 
segmento» contiene el número hexade- 
cimal 1C7B y el «registro de desplaza- 
miento» contiene 96F8, la dirección efec- 
tiva resulta ser 25EA8 (ya que 25EA8 = 
1C7B0 + 96F8). La operación se represen- 
ta en la siguiente figura: 


ha MAQUINA 8088 


Registro de Segmento 


bits 


binario 


hexadecimal 


bits 15/14/13 
binario 1 O 


hexadecimal 


bits 
binaria 


hexadecimal 


SE 
1 


Pero no todos los registros pueden ha- 
cer el papel de «registros de segmento» 
y «registros de desplazamiento», sino que 
hay unas cuantas opciones posibles. 
Como «registros de segmento» actúan los 
registros CS, SS, DS y ES. Como «registros 
de desplazamiento» pueden actuar IP, 
SP, BP, BX, SI y DI. 

Aunque pueden utilizarse muchas pa- 
rejas de registros válidas, hay cuatro pa- 
rejas que son típicas, porque direccio- 
nan las cuatro áreas de memoria que 
maneja el 8088. Las áreas y las parejas 
de registro que las direccionan son las si- 
guientes: 


e Area de código (o área de progra- 
ma). Direccionada por los registros CS 
e IP. 


CS son las iniciales de las palabras in- 
glesas «Code Segment» (que significa 
«segmento de código»), e IP son iniciales 
de «Instruction Pointer» (que significa 
«apuntador de instrucciones»). Estos dos 
registros direccionan en todo momento 
la posición de memoria donde se en- 
cuentra la siguiente instrucción a eje- 
cutar, 


e Area de datos. Direccionada por los 
registros DS y SI. 

DS son las iniciales inglesas de «Data 
Segment» (que significa «segmento de 
datos»), y Sl son las iniciales de «Source 
Index» (que significa «ndice del origen»). 
Estos registros definen el área de memo- 
ria de donde leen determinadas instruc- 


ciones. Por ejemplo: la instrucción LODSW 
lee en el registro AX la palabra de me- 
moría apuntada por DS y SI. 

e Area de datos «extra». Direccionada 
por los registros ES y DI. 

ES son las iniciales de «Extra Segment» 
(que significa «segmento extra»), y Dl son 
las iniciales del «Destination Index» (que 
significa «Índice del destino»). Estos regis- 
tros sirven para definir el área de memo- 
ria sobre la que escriben determinadas 
instrucciones. Por ejemplo: la instrucción 
sTOSW escribe el contenido del registro 
AX en la palabra de memoria apuntada 
por ES y DI. 

e Area de la pila de ejecución. Direc- 
cionada por los registros SS y SP. 

SS son las iniciales de «Stack Segment» 
(que significa «segmento de la pila»), y 
SP de «Stack Pointer» (que significa 
«apuntador de la pila»). Estos registros sir- 
ven para direccionar la pila de ejecu- 
ción o STACK. El concepto de «pila de 
ejecución» se explicará con detalle más 
adelante. 

Estas cuatro áreas pueden ser realmen- 
te cuatro áreas diferenciadas de la me- 
moria, o pueden solaparse. A continua- 
ción vamos a ver un programa ejemplo 
donde ocurre esto con el «Area de da- 
tos» y el «Area de datos extra». Ambas 
áreas se hacen coincidir, en este caso, 
con la zona de memoria que contiene la 
información que se representa en la pan- 
talla (que recibe el nombre de «butter de 
pantalla»). 


A — Y 


2 Programa ejemplo 


Este programa lo vamos a escribir usan- 
do también el Programa DEBUG. El méto- 
do normal de escribir programas en len- 
guaje máquina (lenguaje ensamblador) 
lo veremos más, adelante cuando se ex- 
pliquen las nociones básicas de «edi- 
ción», «ensamblaje» y «montaje». 


En este caso vamos a utilizar el manda- 
to A del DEBUG. Esta letra es la inicial de 
«assemble», que quiere decir «ensam- 
blar», es decir, obtener el código que en- 
tiende la máquina (código máquina) a 
partir de unas instrucciones escritas en 
un lenguaje entendible por el hombre 
(«lenguaje simbólico»). 


Al escribir «a 100» y pulsar Enter, el DE- 
BUG va escribiendo sobre la pantalla la 
dirección sobre la que se va guardando 


el código máquina en la forma CS:IP, es: 


decir, un número hexadecimal de cuatro 
cifras que es el «registro de segmento» 
seguido de dos puntos y de otro número 
hexadecimal que es el «apuntador de 
instrucciones». A partir de ese momento, 
nosotros escribiremos las instrucciones 
(que se listan en minúsculas más abajo) 
y pulsaremos Enter al final de cada una. 
El mando A se termina al pulsar Enter sin 
haber definido ninguna instrucción. El res- 
to del listado corresponde a manda- 
tos que se explicaron paso a paso en el 
tomo primero. 


Con esto realizaremos el proceso inver- 
so al ejemplo del programa MAQUINA, 
donde se escribió directamente el códi- 
go máquina y se pidió al DEBUG que ge- 
nerase el código en lenguaje simbólico. 


A continuación se reproduce lo que 

aparece sobre la pantalla durante el 
proceso de escritura y comprobación de 
este programa. La comprobación me- 
diante la instrucción «u 100 11e» es im- 
portante, ya que, cuando se programa 
en lenguaje máquina, la mayoría de los 
errores no pueden ser detectados «a 
priori» y ocasionan frecuentemente «el 


cuelgue» de la máquina. Es decir, la pér-. 


dida del control de la ejecución por el 
sistema operativo, por lo que la única so- 
lución es volver a cargarlo mediante un 
nuevo «IPL» (sigla de «Initial Program 
Load» que significa «carga del programa 
iniciador»). 


Hay que tener en cuenta que los que 
deseen ejecutar el programa en la pan- 
talla de color deben cambiar la instruc- 
ción número cuatro, que es «mov 
ax,b000» por la instrucción «mov 
ax,p800». El cambio se debe a que cada 
tipo de pantalla tiene su buffer en una di- 
rección de memoria diferente. 


A>DEBUG 
a 100 
0C47:0100 y 
0C47:0101 
0C47:0104 
0C47:0105 
0047:0108 
0C47:010A 
0C47:010C 
0C47:010F 
0C47:0110 
0C47:0113 
0C47:0116 
0C47:0119 
0C47:011A 
08C47:011B 
0C47:011C 
0047:011E 
0047: 011F 


=u 100 11e 
0C47:0100 
0C47: 0101 
0C47:0104 
0C47:0105 
0C47:0108 
0C47:010A 
0C47: 0108 
08047: 010F 
0C47:0110 
0C47:0113 
0C47:0116 
0C47:0119 
0C47:011A 
0C47:011B 
0C47:011C 
0C47:011E 


CX,.07DO 
SI, 0002 
DI, 0000 


=n simbolo.com 
=r cx 

EX 0000 

214 


—w 
Writing O01F bytes 


Cuando termina el programa DEBUG te- 
nemos un nuevo fichero llamado SIMBO- 
LO. COM, que contiene 31 bytes con nues- 
tro programa. Al ejecutarlo podemos ver 
cómo el contenido de la pantalla se des- 
plaza horizontalmente, de forma que se 
pierde por la izquierda y aparece por la 
derecha varias veces. Para observar bien 
el efecto se recomienda ejecutar el pro- 
grama SIMBOLO cuando la pantalla esté 
ocupada. 


Programa: 


vocabulario 
frances 


L primer programa de 
este cuarto tomo nos 
permitirá poner al día 
nuestros conocimien- 
tos del idioma fran- 
cés. El programa nos 
irá preguntando una 
serie de palabras en 


español que nosotros tendremos que tra- 
ducir al francés. Para hacer más fácil 
todo, el programa divide las palabras, 
según su dificultad, en cuatro niveles dis- 
tintos. Las instrucciones necesarias para 
utilizar el programa se dan en el mismo. 


1 REM 
2 REM 
3,REM 
REM 


REM 
REM 
REM 
10 REM 
11 REM 
50 LET 


(0 0 DcoA 


EEES 


* VACABULARIO FRANCES * 
AMOO ISO ISI lMIOIOIOloK 


ARARRAOIOIIOIOIOIOIOIIOIOIOIOJO RA 
* POR OSCAR MORALES  * 
EAT 
*(c)Ed.Siglo Cultural * 
k(c) 1987 * 
AGO odo doo 


o=0: LET w=0: LET x=0 


100 PRINT INVERSE 1;"VOCALES I 
QUALES EN AMBOS IDIOMAS": PRINT 


110 PRINT ” Espanol 

Frances": PRINT 

120 PRINT “ a 
a ": PRINT 

130 PRINT ” i 
i": PRINT 

140 PRINT " o 

o,au,eau”: PRINT 

150 PRINT ” e 

ai,ei": FEINT 

160 PRINT * u 
ou 

170 PRINT "=== 


PROGRAMAS 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 


180 PRINT INVERSE 1;" VOCALES N 
O EXISTENTES EN ESPANOL": PRINT 

190 PRINT "La "; INVERSE 1;"u" 
5 INVERSE 0;" en frances se p 
ronunciaponiendo la boca para de 
cir la "; INVERSE 1;"u"; INVERSE 
0;"espanola y diciendo i. La "; 
INVERSE 1;"e"; INVERSE 0;” fran 
cesa se pronuncia poniendo la bo 
ca para decir "; INVERSE 1;"o"; 
INVERSE 0;", diciendo "; INVERSE 
1;"e"; INVERSE 0;"." 

200 PRINT +0; FLASH 1;* 
PULSA UNA TECLA. a 

210 IF INKEYS$="" THEN GO TO 21 
(0) 

211 CLS : PRINT  INVERSE 1;" 


ANISO -=-- 
PRINT **" Se avisa que para los 
sustanti-": PRINT "vos hace falt 
a poner el articu-": PRINT “lo. 


: PRINT ?" Si necesita un apost 
ofe utilice el guion. ": PRINT *" 
Los nombres propios han de ir 
con mayuscula al principio." 
212 PRINT : PRINT : PRINT * 


SUERTE” 
213 PRINT : PRINT : PRINT : PRI 
NT FLASH 1;" PULSA UNA T 


ECLA. p 
214 IF INKEY$="" THEN GO TO 21 
4 

215 CLS : INPUT "QUE NIVEL DESE 
AS (1-4)";L: IF L<>1 AND L<>2 AN 
D L<>3 AND 1<>4 THEN GO TO 215 
216 PRINT AT 10,8; FLASH 1; "ESP 
ERA UN MOMENTO" 

217 IF L=1 THEN LET d=80 

218 IF 1=2 THEN LET d-145 

219 IF 1=3 THEN LET d=206 

220 IF 1=4 THEN LET d=267 

230 DIM a$(d,20): DIM d$(d, 20): 
LET q=0 

240 RESTORE 300 

249 LET a=0 

250 FOR i=1 TO d 

254 READ b$: LET a$(1)=b$ 

255 NEXT i : 

260 LET c$="": RESTORE 400 

270 FOR b=1 TO d 


274 READ c$: LET d$(b)=c$ 
275 NEXT b 
300 DATA "mesa”," coche", "libro 
“, "ventana", "lapiz", "palabra", "p 
erro",'"silla"," puerta”, "pared”,” 
cabeza", "casa", "cigarro", "lampar 
a", "armario", "comida", "agua", "ca 
ma", "suelo", “techo”, "cielo", "nub 
e", "sol", "lluvia", "habitacion", " 
cuarto de estar”, "cuarto de bano 
", "cocina", “salon”, "pasillo", "bo 
lsa”, "pan", "leche", “jarron”, "zap 
ato", “bombilla”, "arbol", "calle", 
"taza", cafe", "ciudad", "cerveza" 
,"cana de cerveza", “pastel”, "vin 
o", "hora", "campo", "semana", "dia" 
, "mes", “ano”, "siglo", "boligrafo" 
, "goma", "sacerdote", "alambre", "p 
iel”, "luna", "violin", "hospital” 
320 DATA "alfombra”, “curso”, "Eu 
ropa", “Espana”, "Francia", "idioma 
", "hombre", “mujer”, "nino", "nina” 
, "abuelo", abuela”, "madre", "padr 
e", "suegra", "suegro", "primo", "pr 
ima", "sobrino", "sobrina", "hijo", 
"hija", "cunado", "cunada”, "horno" 
, "grifo", " vajilla”, "plato", "tene 
dor","cuchillo", "cuchara", "ojo", 
“ojos","nariz", "boca", "cara", "fr 
ente", "espalda", “hombros”, "piern 
a", "mano", "pie", "brazo", “animal” 
, "persona", "pajaro", "paloma", "ce 
rdo", "vaca", "cordero", "carro", "r 
amo de flores", "cesta", "tinta", " 
pantalla”, "tintero", "cenicero", ” 
tiza", "largo", "ancho", “estrecho” 
, “corto”, "alto", "bajo", "rubio", " 
moreno”, "pelirrojo", "fuerte", "de 
bil", "abierto", "cerrado", "papel" 
, reloj", "blanco", “negro”, "verde 
","rojo","azul”, "amarillo" 

330 DATA "rosa", "naranja", '"marr 
on","gris"”, "violeta", "fecha","ed 
ad"," noche”, tarde”, "manana", "es 
trella", "palido", "cuadro", "cuadr 
ado”, “triangulo”, "vida", "ser","e 
s","el es”, "el tiene”, “yo tengo” 
y "yo soy", "yo voy","el viene","g 
uante", “pantalon”, “camisa”, "jers 
ey", chaqueta”, "botas", "sombrero 
","calcetin", “chaleco”, "necesita 
r", "prenda interior",'"ropa de ve 
stir", "ropa", "abrigo", "botella", 
"gorra", nombre”, "cual es?”", "mi" 
, "tu", “su”, "nuestro", "vuestro", " 
fuego", "dinero", "ayudar","amar”, 
"cortina", "cruz"”, "iglesia", "medi 
co", policia”, "bombero", "tienda" 
, "vela", "tijera", "vaso", "corazon 
*, "pelo", “cuaderno”, "profesor",” 
circulo”, "el primero” 

350 DATA "cajon", "sillon", "un", 
una", “dos”, "tres", "cuatro", "cin 
.co", "seis", "siete", "ocho", "nueve 

", "diez", "muneca", "telefono", "ba 
rba", "veneno", "pez", "sombra", "di 
ente", "lleno", “vacio”, “grande”, ”" 
pequeno", "piedra", "roca", "rio",” 
mar”, "aplauso", “campana”, "golpe" 


, "encendedor", "radiador", "chimen 
ea”, “desayuno”, "cena", "juventud" 
, “lago”, "lazo", “madera”, "hierro" 
"lana", "cemento", "algodon", "lad 
rillo", "verdad", “mentira","es ve 
rdad!"," rama", "peso", “quizas”, "r 
azon", "asiento", sobre”,'sello", 
“subir”, "bajar", "escalera", "ladr 
on”, "sonrisa", "azucar" 


400 DATA "la table", "la voiture 
, “le livre", "la fenetre”, "le cr 
ayon", "le mot", "le chien”, "la ch 
aise","la porte","le mur", "la te 
te","la maison", "la cigarrette”, 

"la lampe”,'"l-armoire","la nourr 
iture","l-eau”, "le lit”, "le sol" 
, “le plafond","le ciel”, "la"nuag 
e","le soleil",yYla pluit", "la ch 
ambre",'"la salle a manger", "la s 
alle de bain","la cuisine",,"le s 
alon", "le couloir","le sac", "le 
pain", le lait","le vase", "la ch 
aussure”",'"l-ampoule","l-arbre"," 
la rue", "la tasse", "le cafe", "la 

ville", "la biere”", "le demi", "le 

gateau","le vin", "l-heure","le 

champ", "la semaine", "le jour”, "1 
e mois”,'"l-an","le siecle","le s 
tylo",'"la gomme”", "le cure", "le f 
il de fer","la peau”, "la lune”,” 
le violon","l1-hopital" 

420 DATA "le tapis”,"le cours”, 
"1-Europe", "1-Espagne", "la France 
e","la langue”, "1-homme", "la fem 
me”, "l-enfant", "la fille", "le gr 
and-pere", "la grand-mere”, "la me 
re", "le pere", "la belle-mere", "1 
e beau-pere”, "le cousin", "la cou 
sine”, "le neveu", "la niece”", "le 
fis","la fille", "le beau-frere", 
"la belle-soeur”, "le four”, "le r 
obinet","la vaisselle”, "l-assiet 
te", "la fourchette","le couteau" 
, "la cuillere”","l-oei1”, "les yeu 
x","le nez", "la bouche", “la figu 
re",'"le front", "le dos”, "1-epaul 
e", "la jambe”","la main", "le pied 
","le bras", "l-animal","la perso 
nne","l-oiseau', "le pingeon”, "le 

porc”, "la vache”, "1-agneau", "le 

chariot",'"le bouquet", "le panie 
r","l-encre”,"l-ecran", "l1-encrie 
r","le sandrier", "la craie" 

430 DATA "long"”,"large", “etroit 
"court", "haut", “bas”, “blond", " 
brun"”, "roux", "fort", "faible", "ou 
vert","ferme", "le papier”", "la mo 
ntre”, "blanc", “noir”, "vert","rou 
ge", "bleu", "jaune”, "la rose", "or 
ange”", "marron", “gris”, "violet"," 
la date", "l-age" 

440 DATA "la nuit”, "le soir", "1 
e matin”,"l-etoile","pale", "le t 
ableau”,” "le carre”, "le triangle" 
, “la vie", "etre","c-est”", "il est 
“y "il a”, "j-ai", "je suis", "je va 
is","il viens”, "le gant”", "le pan 
talon","la chemise", "le chandail 


ls PROGRAMAS 


","la jaquette", "la botte","le e 
hapeau”", "le chaussette", "le gile 
t"," "avoir besoin”, "le sous-vetem 
ent","le vetement”, "le linge", "1 
e pardessus”,"la bouteille”", "la 
casquette","le nom", "quel est?”, 
“mon”, “ton”, “son”, "notre", "votre 
","le feu", "l-argent”, "aider", "a 
imer","le rideau", "la croix","1l- 
eglise", "le medesin", "la police" 
, "le pompier”","le magasin", "la b 
ougie", "le ciseau”, "le verre", "1 
e coeur",'"le cheveu","le cahisr" 
, "le professeur”, "le cercle”, "le 
premiere" - 


"450 DATA "le tiroir", "le fauteu 
i1","un", "une", "dos", "trois", "qu 
atre","cinq", six", "sept", "huit” 
»"neuf","dix","la poupee", "le te 
lephone", "la barbe", "le poison", 
"le poisson”,"1l-ombre","le dent” 
, “plein", "vide", "grand", "petit", 
"la pierre”, "le rocher", "la fleu 
ve", "la mer”, "1-applaudissement” 
, "la cloche”, "le coup", "le briqu 
et","le radiateur”, "la cheminee" 
, "le petit dejeuner”, "le souper” 
,"la jeunesse", "le lac", "le noeu 
d","le bois","le fer","la laine” 
, “le ciment”, "le coton", "la bria 
ue","la verite", "la mensonge”, "e 
est vrai!","la brache", "le poid 
s", "peut-etre", "la raison", "le s 
iege”,"l-enveloppe", "le timbre", 
"monter", "descendre", "l-escalier 
","le voleur”,"la sourise", "le s 
ucre" 


900 RANDOMIZE 
1000 IF d<=0 THEN PRINT "HAS AC 
ABADO CON EL NIVEL ";L: PRINT “T 
U PORCENTAGE DE ACIERTOS ES DEL 
";100-((X*x100)/0);" %X": STOP 
1005 CLS : PRINT "QUIERES QUE TE 
PREGUNTE?” 
1006 PRINT : PRINT : PRINT 
1010 LET x$=INKEYS 
10Z0 IF x$="s" OR X$="S" THEN G 
O TO 1100 
1030 IF x$="n" OR X$="N" THEN C 
LS : PRINT "TÚ PORCENTAGE DE ACI 
ERTOS ES DEL ";100-((X*100)/(0+. 
00001));” %": STOP 
1040 GO TO 1010 
1100 LET r=INT (RND*xd)+1: IF así 
To" " THEN 
GO TO 1100 
1200 PRINT "LA PALABRA ES ";a$(r 
) 
1210 INPUT "CUAL ES SU TRADUCCIO 
N?";r$: LET 0=0+1 
1220 FOR h=LEN (r$) TO 20: LET r 
$=r$+" ": IF r$=d$(r) THEN LET 
h=20: LET aq=1 
1225 NEXT h: IF q=1 THEN PRINT 
"CORRECTO": LET Q=0: LET w=0: LE 
T W=0: GO SUB 3000: GO TO 900 
1230 PRINT *”? FLASH 1;"NO ES COR 


RECTO": PRINT : PRINT “INTENTALO” 


DE NUEVO": LET W=W+1: LET X=X+1 
: PAUSE 200: CLS 

1235 IF W>=3 THEN PRINT "LA TRA 
DUCCION ERA ";D$(R): LET w=0: PA 
USE 200: GO SUB 3000: GO TO 900 

1240 GO TO 1200 

3000 IF r=d THEN LET a$(r)="": 

LET d$(r)="": LET d=d-1: RETURN 

3005 FOR g=r TO d-1 

3010 LET a$(g8)=a$(8+1): LET d$(8 
)=d$(8+1): LET a$(g+1)="": LET d 
$S(8g+1)="" 

3020 NEXT g 

3030 LET d=d-1: RETURN 


El programa se ha realizado en un SPEC- 
TRUM. Para que el programa funcione en 
los demás ordenadores, hay que realizar 
algunos cambios. Estos, según el ordena- 
dor, se especifican a continuación. 


COMMODORE: 


60 PRINT CHR$(147) 

100 PRINT “VOCALES IGUALES EN AMBOS 
IDIOMAS”:PRINT 

180 PRINT “VOCALES NO EXISTENTES EN ES- 
PANOL”.PRINT : 

190 PRINT “La 'U* en francés se pronun- 
cia poniendo la boca para decir la 'U' es- 


[pañola y diciendo 'l'. La 'E' francesa se 


pronuncia poniendo la boca para decir 
*0", diciendo '“E”.” 

200 POKE 214,21:POKE 211,0:PRINT “PUL- 
SA UNA TECLA” 
210 GET AS:IF A$=""” THEN GOTO 210 
211 PRINT CHR$(147):PRINT “AVISO”:PRINT 
mmm. "*PRINT:PRINT "Se avisa que para los 
sustantivos hace falta poner el artícu- 
lo.'':PRINT:PRINT ““Si necesita un apóstrofo 
utilice el guión.”:PRINT:PRINT “Los nombres 
propios han de ir con mayúscua al princl- 
pio.” 

213 PRINT:PRINT:PRINT “PULSA UNA TECLA” 

214 GET AS: IF AS="" THEN GOTO 214 

215 PRINT CHR$(147):INPUT “QUE NIVEL 
DESEAS (1-4)”; I: IFL<>1 AND L<>2 AND 
L<>3 AND L<>4 THEN GOTO 215 

216 PRINT:PRINT:PRINT “ESPERA UN MO- 
MENTO” 

230 DIM AS(D):DIM DS$(D) 

900 LET A=RND(-TI) 

1005 PRINT CHR$(147);“QUIERES QUE TE 
PREGUNTE?” 

1010 GET X$ 

1030 IF x$="n" OR X$"“="N"” THEN PRINT 
CHR$(147);“TU PORCENTAJE DE ACIERTOS 


ES DEL ":100-((X"100)//(0+.00001)); 
'" %':END 

1100 LET R=INT(RND(O)'D)+1:1F AS(R)=" ” 
THEN GOTO 1100 

1230 PRINT “NO ES CORRECTO”:PRINT:PRINT 
"INTENTALO DE NUEVO”:LET W=W+1:LET 
X=X+1:FOR G=1 TO 200:NEXT G:PRINT 
CHR$(147) 


60 CLS 

100 PRINT “VOCALES IGUALES EN AMBOS 
IDIOMAS”:PRINT 

180 PRINT “VOCALES NO EXISTENTES EN ES- 
PANOL”:PRINT 

190 PRINT “La 'U' en francés se pronun- 
cia poniendo la boca para decir la 'U' es- 
pañola y diciendo 'l'. La “E” francesa se 
pronuncia poniendo la boca para decir 
'O', diciendo '“E'.” 

200 LOCATE 21,1:PRINT “PULSA UNA TE- 
CLA” 

211 CLS:PRINT 
Uan” PRINT:PRINT “Se avisa que para los 
sustantivos hace falta poner el artícu- 
lo.'"PRINT:PRINT “Si' necesita un apóstrofo 
utilice el guión.”PRINT:PRINT “Los nombres 
propios han de ir con mayúscula al prin- 
cipio.” 

213 PRINT:PRINT:PRINT “PULSA UNA TECLA” 

216 PRINT “ESPERA UN MOMENTO” 

1230 PRINT “NO ES CORRECTÓ”:PRINT:PRINT 
“INTENTALO DE NUEVO”:LET W=W+1:LET 
X=X+1:FOR G=1 TO 200:NEXT G:CLS 


MSX: 


Las variaciones que hay que realizar 
para que el programa funcione en este 
ordenador son las mismas que para el 
IBM, excepto la sentencia LOCATE de la lí- 
nea 200, que en vez de ser LOCATE 21,1 
ha de ser LOCATE 1,21. También hay que 
cambiar la línea 900 por: 


900 LET A=RND(-TIME) 
AMSTRAD: 


Para este ordenador hay que hacer los 
mismos cambios que se dan para el IBM, 
pero hay que cambiar la sentencia LO- 
CATE de la línea 200 por LOCATE 1,21. 


u Notas al programa 


Este programa tiene almacenadas en 
total 267 palabras. Al principio, éstas 


““AVISO*':PRINT: 


introducción sobre los tipos de la lengua 


El programa da una pequeña 
[A francesa. 


pueden ser más que suficientes, pero en 
la medida en que cada una vaya apren- 
diendo, o recordando, más palabras en 
francés, el programa se puede quedar 
pequeño. Para que el programa acepte 
más palabras sólo hay que ponerle más 
niveles. Para cambiar el número de nive- 
les que pueda tener el programa sólo 
hay que cambiar las siguientes lineas: 


215 CLS:INPUT “QUE NIVEL QUIERES 
(1—n);L:IF L< OR L>N THEN GOTO 215 

221 IF L=5 THEN LET D=320 

222 IF L=6 THEN LET D=400 


donde «n» es el número de nivel más alto 
permitido. Las líneas 221 y 222 aparecen 
a título de ejemplo. Habrá que poner una 
de estas líneas por cada nivel añadido, 
La asignación que se encuentra al final 
de dichas líneas le dice al ordenador 
cuál es el número máximo de palabras 
que puede preguntar. 

Por supuesto, el cambio más importan- 
te ha de hacerse a partir de las líneas 350 
y 450. A partir de la línea 350 tenemos 
que almacenar en líneas DATA las nue- 
vas palabras en francés que queremos 
que tenga el programa. A partir de la lí- 
nea 450 almacenaremos las mismas pa- 
labras, en el mismo orden, pero en espa- 
ñol. ' 


PROGRAMAS 


PLILSA UNA TECLA. 


a Programa: Resolución 
de ecuaciones 
El programa que vamos a ver a conti- 


nuación nos permitirá resolver ecuacio- 
nes que tengan hasta cincuenta incógni- 


GUIERES GUE TE PREGUNTE? 


LA PALABRA ES calle 


NO ES CORRECTO 
INTENTALO DE MUEVO 


l A Pantalla del programa en plena 


ejecución. 


una única solución. No sería difícil variar 
el programa para que además resolvie- 
se sistemas de ecuaciones con infinitas 
soluciones y para que resolviese siste- 


tas. El programa está preparado para de- 
cirnos si el determinante es cero, pero 
solo sirve para ecuaciones que tengan 


mas de ecuaciones homogéneas. Para 
ello, se ha incluido, junto con el progra- 
ma, el diagrama de flujo u organigrama. 


100 REM ASS SISIO SISSI lSIO o alSIOISlo lalalala lSlO lla lS lalalala llalo lalola lok 


101 REM RESOLUCION DE SISTEMAS DE ECUACIONES DE CUALQUIER ORDEN 

102 REM POR EL METODO DIRECTO DE CRAMER 

103 REM aaa olaa lalalala lalola alla lalalalololIOIOIOlaok 
104 REM 

105 REM 

106 REM 


107 REM AMS SOSA SOI lO SOI laa oK 


(108 REM AdoModooodoloKoK POR : JUAN MANUEL GUTIERREZ LEITON AMOO JOR 
109 REM SMS OSORIO lla lalalala lalala lolSlalola lalalala lalala Rolalok 
110 REM 2 

* +. 111 REM 


112 REM AsoaSO SS SSO SO SOSA SjO ESOO SSI Old llo kk 
113 REM AMOO (C) EDICIONES SIGLO CULTURAL (1987) AMOO SlOlOjOlSJOIOJOJOK 
114 REM ASS MN SSI IO Oil aala lalalala lalalala lalalala lo lolalalalo lalalala lolalalololokalok 
115 REM 

116 REM 

117 DIM M(50,50):DIM A(50,50):DIM D(50):DIM T(50):DIM S(50) 

118 CLS 

119 INPUT “dimension del sistema de ecuaciones";DI 

120 IF DI<=1 THEN GOTO 119 

121 IF DI<>INT(DI) THEN GOTO 119 
122 FOR I=1 TO DI 

123 FOR J=1 TO DI 

124 PRINT Ca SIS AT) 
125 INPUT M(1,J) 

126 NEXT J 

127 PRINT "termino independiente(";1;")="; 
128 INPUT T(I) 


129 NEXT 1 

130 CLS 

131 LOCATE 12,15 

132 PRINT "-- CALCULANDO !!"; 


133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 


PRINT * por favor, espere....” 
GOSUB 147 
GOSUB 164 
LET DL=DE 
IF DL=0 THEN GOTO 145 
FOR C=1 TO DI 
GOSUB 218 
GOSUB 164 
LET S(C)=DE/DL 
NEXT C 
GOSUB 237 
GOTO 146 
GOSUB 262 
END 
REM 
REM AIMAR lalalala lalola okokok 
REM SUBRUTINA DE CREACION DE UNA MATRIZ AUXILIAR QUE ES UNA COPIA 
REM DE LA MATRIZ ORIGEN O MATRIZ DE PARTIDA DEL SISTEMA DE ECUACIO- ¿ 
REM NES. 
REM AROS OSOS SOS OSOS SOS lSOllE alado lalola kk 
REM j 
FOR I=1 TO DI 
FOR J=1 TO DI 
LET A(1,J)=M(1,J) 
NEXT J 
NEXT I 
RETURN 
REM 
REM ARSS SOS OO SISSI SSldlE lO O Salada lalalala olaa lala lalola ko 
REM, FIN DE LA SUBRUTINA DE LA CREACION DE LA MATRIZ AUXILIAR 
REM AMOS OOOO Silla loa lalalala lalala lolokok 
REM 
REM AMOS SOS lolollololok 
REM SUBRUTINA PARA EL CALCULO DE LOS DETERMINANTES POR EL METODO 
REM DE TRIANGULACION, ES DECIR, TODOS LOS ELEMENTOS SITUADOS ES- 
REM TRICTAMENTE BAJO LA DIAGONAL PRINCIPAL SON CONVERTIDOS A CERO 
REM AMOS SOS SSI jajaa jajajaa alla lalalala ololalala lalalala lalalala akii ok 
REM 
LET T 
LET 1 
LET J 
LET K 
DET! L=T 
IF M(I,J)=0 THEN GOTO 204 
LET D(T)=M(K, J) 
LET I=T 
LET D=M(K, 1) 
LET M(1,J)=M(I,J)/D 
IF J=DI THEN GOTO 184 
LET J=J+1 
GOTO 180 
LET I=1+1 
LET J=1 
LET RE=M(I,J) | 
LET M(1,J)=M(1, J)-M(K, J)X*RE 
IF J=DI THEN GOTO 191 
LET J=3+1 
GOTO 187 
IF I=DI THEN 193 
GOTO 184 
IF T=DI-1 THEN GOTO 196 
LET T=T+1 S 
GOTO 172 
LET T=DI 
LET D(T)=M(DI,DI) : 
LET T=1 
LET DE=1 
FOR I=1 TO DI 


E PROGRAMAS 


201 LET DE=DEXxD(I) 

202 NEXT I 

203 GOTO 213 . 
204 LET I=1+1 p 

205 IF M(I,J)=0 THEN GOTO 210 
206 LET M(K,L)=M(K,L)+M(I,L) 
207 LET L=L+1 

208 IF L>DI THEN GOTO 177 

209 GOTO 206 

210 IF I=DI THEN GOTO 212 

211 GOTO 204 

212 LET DE=0 


213 RETURN 

214 REM 

215 REM ao MOSSOS ISSN SISI SISI alla jala laa ala a jojalajalalalala lala lalalaajojojojojolok 
q 216 REM FIN DE LA SUBRUTINA DE CALCULO DE DETERMINANTES 

217 REM ARMAS SAS SSA III III laaSIOIOIOk 

218 REM 


219 REM daRaaaaadSSjOlS lalalala lalalala lalalala lalalala lalalala lala lalalala ajojololojojok 
220 REM  SUBRUTINA PARA EL INTERCAMBIO DE LOS VALORES DE UNA COLUMNA 

221 REM DE LA MATRIZ ORIGEN POR LA COLUMNA DE TERMINOS INDEPENDIENTES 

222 REM oO alla lalalala lalalala lalalala lalalala IoIOJok 
223 REM 

224 FOR I=1 TO DI 

225 FOR J=1 TO DI 


226 M(I,J)=A(I,J) 
227 NEXT J 
228 NEXT I 


229 FOR I=1 TO DI 
230 M(I,C)=T(I) 


231 NEXT I 

232 RETURN 

233 REM 

234. REM AMAN Olalla lalalala lalalala dalla Kok 
235 REM FIN DE LA SIBRUTINA DE INTERCAMBIO , 

236 REM MMS dotok 
237 REM 


238. REM AMS SSA SIO ASAS OOOO Sl allioli lalalala olaaa kolok 
239 REM SUBRUTINA PARA LA IMPRESION EN PANTALLA DE LOS RESULTADOS 

240 REM ASSIM lolojolok 
241 REM 

242 CLS 

243 LOCATE 8,20 

244 PRINT “soluciones del sistema de ecuaciones" 

245 LOCATE 9,20 


246 PRINT "== ” 
247 FORK Y=1 TO DI 
A LOCATE 13,30 
249 PRINTS SL) 
250 TOCATE 21,23 
251 PRINT “pulse una tecla para continuar" 
252 LET A$=INKEY$ 
23 IX A$="" THEN GOTO 252 
254 NEXT I 
255 CLS 
256 RETURN 
257 REM 


258 REM ASAS OOOO OOOO Odd 


259 REM FIN DE LA SUBRUTINA DE IMPRESION DE RESULTADOS 
260 REM ASS ao olaaa iodo Odo oK 


261 REM 

262 REM aaa lalalala lll lla oo lalalala lalalala ok 
263 REM SUBRUTINA PARA EL CASO DE QUE LA MATRIZ DE SALIDA O 

264 REM MATRIZ DE ORIGEN TENGA UN DETERMINANTE=0 

285 REM aaa OOOO lalalala jajajajaja lalalala jajajajaja 
266 REM 

267 CLS 


268 LOCATE 9,15 


269 
270 
271 
272 
273 
274 
275 
276 
20d 
278 
279 
280 
281 


PRINT "el determinante de la matriz origen o de partida es" 

LOCATE 11,15 

PRINT "0, luego no se puede aplicar el metodo de CRAMER A 

LOCATE 21,23 

PRINT "pulse una tecla para continuar” 

LET AS=INKEYS 

IF A$="" THEN GOTO 274 

CLS 

RETURN 

REM 

REM ASS lO aloja aloja aloja lalalala dla jolok 
REM FIN DE LA SUBRUTINA PARA EL DETERMINANTE=0 DE LA MATRIZ ORIGEN 
REM ASS SSI lll lalalala aloja olaaa lalalala lola lalola look 


No 
DI<>INT(DÍ) 
NY 


¡CALCULANDO! 


A 
9 
O 


=> LLAMADAS A SUBRUTINA 


5 ] 
O) 


==)» CONECTORES DE FLUJO 


2 PROGRAMAS 


E 
== 8 


MAK1,J)=HO(LJ) 


MO(K,L)=MO 
(K,L)+MO(1,L) MO(1,J)=MO 
1,3)/D 


MO(1,J)=MO(1,J) 
-MO(K,J)"RE 


Soluciones 
del sistema 


Pulse una 
tecla para 
segulr 


>PIPRAEd> e 


2 PROGRAMAS 


- Como siempre, para que el programa 
pueda funcionar perfectamente en orde- 
del sistema de ecuaciones? Y . hadores distintos del IBM, se recomienda 
realizar los siguientes cambios: 


COMMODORE: 


118 PRINT CHR$(147) 
130 PRINT CHR$(147) 
endiente(-1 992.28 131 POKE 214,12:POKE 211,7 
242 PRINT CHR$(147) 
243 POKE 214,8:POKE 21 
245 POKE 214,9:POKE 21 
248 POKE 214,13:POKE 2 
á 250 POKE 214,21:POKE 2 
ino O leredienta( 2 )=2 12, 252 GET AS 

E 255 PRINT CHR$(147) 


roo 
Do a e 
Lo 


A TAS 


lo 
1 
1 
3 
4 
E 
6 
1 
3 
9 
10 


=> 
ES 


CS 


0 | 


AAA TETERA 
Ú _ ORT 


ZIDANE 

RR 
IE 
Fr en 

a 

cel al cd 


19 
1,3 


== : 268 POKE 214,9:POKE 211 
X. ER 270 POKE 214,11:POKE 21 
Amplio qe Blacución: 172 POKE 214,21:POKE 21 
274 GETAS 
276 PRINT CHR$(147) 


soluciones del sistema de ecuaciones AMSTRAD: 


131 LOCATE 15,12 

243 LOCATE 20,8 

245 LOCATE 20,9 

248 LOCATE 30,13 

250 LOCATE 23,21 

268 LOCATE 15,9 ' 
270 LOCATE 15,11 

272 LOCATE 23,21 


Para que la presentación del programa 
sea perfecta, se recomienda al usuario 
ejecutar el programa estando en el 
modo número 2 de pantalla (MODE 2). 


MXS: 


131 LOCATE 15,12 
242 LOCATE 20,8 
245 LOCATE 20,9 
248 LOCATE 30,13 
250 LOCATE 23,21 
268 LOCATE 15,9 


0 
1,0 
1,3 


4 1= 3,837823 


pulse una tecla para continuar 


el deterninante de la matriz origen o de partida es 


0, luego no se puede aplicar el metodo de CRAMER 270 LOCATE 15,11 
272 LOCATE 23,21 
SPECTRUM: 
131 PRINT AT 12,0; 
266 LET M(I,J)=ACl,J) 
230 LET M(1,C)-T(1) * 
pulse una tecla para continuar 243 PRINT AT 8,0; 
245 PRINT AT 9,0; 
248 PRINT AT 13,0; 
250 PRINT AT 20 ,0; 
== 268 PRINT AT 9,0; : 
A El programa avisa si el determinante de la 270 PRINT AT 11,0; 
matriz origen es cero. 272 PRINT AT 20,0; 


IO Notas sobre el programa: 
resolución de ecuaciones 


Si necesitas que el programa te resuel- 
va una ecuación de más de cincuenta in- 
cógnitas, lo único que tienes que cam- 
biar es la línea 117 por: 


117 DIM(n,n):DIM A(n,n):DIM D(n):DIM 
T(n):DIM S(n) 


donde «n» es el número de incógnitas (y 
de ecuaciones) a resolver. 

Para los usuarios del IBM, del AMSTRAD 
y del MSX2, se recomienda poner la pan- 
talla en el modo de 80 columnas para te- 
ner una mejor presentación del progra- 
ma. 


ía) Programa: Solitario para 
13) SPECTRUM 


Este último programa del tomo es un 
juego de cartas que sólo sirve para el 
SPECTRUM, aunque aparecerá para el 
resto de los ordenadores en tomos suce- 
sivos. 


Con este programa podremos pasar 
nuestros ratos de ocio sin compañía de 
nadie, pues se trata de un solitario. Debi- 
do a la gran cantidad de juegos de este 
tipo que hay, se hace necesario explicar 
las instrucciones, no:*sólo las de uso del 
programa, sino también las del juego. 


1 REM AMSSSSSSldidlolalalolololalolololokK 

2 REM * SOLITARIO * 

3 REM aaa Illok 

4 REM *POR J. GARCIA LUENGO x* 

BO REM AMS SMS SSIS OOOO lSldIOJolOIOKOIk 

6 REM *(c)Ed. Siglo Culturalx 

7 REM *(c)1987 k 

8 REM MMS SNS SlSSlOlalolololaloJOloK 
9 REM 
10 RESTORE 5900: FOR A=5E4 TO 50011: 

OR A=50100 TO 50111: 
15 POKE 23658,8 
20 FOR A=1 TO 10: LET C=C+1: 
30 FOR B=1 TO 4 


RESTORE 90: 


READ B: POKE A,B: NEXT A: RESTORE 5910: F 
READ B: POKE A,B: NEXT A 


IF C=8 THEN LET C=10 


40 LET B$(Ax4-4+B,1)=(STR$ C AND C<B AND C>1)+("A” AND C=1)+("J" AND C=10)+("Q 


" AND C=11)+("K" AND C=12) 
50 READ P$ 
60 LET B$(A*4-4+B,2)=P$ 
70 NEXT B 
80 NEXT A 
YO DATA MORI AC ED 
100 REM BARAJEO 
110 CLS : PRINT FLASH 1;AT 11,11; 
120 FOR A=1 TO 100 
130 LET ORDEN1=INT (RND*x40)+1 
140 LET ORDEN2=INT (RND*40)+1 
150 IF ORDEN2=ORDEN1 THEN GO TO 140 
160 LET P$=B$(ORDEN1) 
170 LET BS(ORDEN1)=B$(ORDEN2) 
180 LET B$(ORDEN2)=P$ 
190 NEXT A 
200 REM CORTAR 
210 PRINT FLASH 1;AT 11,11;" 
220 FOR A=1 TO 40 


CORTA 


230 BEEP ,01,30: PRINT AT 13,13; “¡A;" * 


240 IF INKEY$<>"" THEN GO TO 280 
250 NEXT A: GO TO 200 

260 FOR B=1 TO 40 

270 LET C$(B)=B3(4) 

280 LET A=A+1: IF A=41 THEN LET A=1 
290 NEXT B E 
300 FOR A=1 TO 40 
310 LET B$(A)=C3(A) 
320 NEXT A 

330 REM CREA LA MESA 


“BARAJANDO" 


le PROGRAMAS 


335 CLS 
340 LET C=40 
350 LET D=6 ; ? 
360 FOR B=1 TO 5 
370 LET A=1 
380 LET D=D-1 
390 LET A$(B,A)=B$(C) 
400 LET C=C-1 
410 LET A=A+1 
420 IF A<=D THEN GO TO 390 
y 430 NEXT B 
440 LET D=7 
450 FOR B=0 TO 4 
460 LET A=1 
470 LET D=D-1 
480 PRINT AT Ax*x2,Bx*x3+2;A$(A,B+1) 
490 LET A=4+1 
500 IF A<>D THEN GO TO 480 
510 NEXT B 
520 PRINT AT 1,19;"OROS”;AT 3,19;R$(R) 
530 PRINT AT 1,25;"COPAS";AT 3,25;0$(0) 
540 PRINT AT 6,19; "ESPADAS";AT 8,19;E$(E) 
550 PRINT AT 9,24;"BASTOS";AT 11,24;5$(5) 
560 PRINT AT 13,19;"MAZO";: GO SUB 3960 
570 PRINT AT 16,24; "MONTON";AT 18,24;M$(M) 
580 PRINT AT 20,20; BRIGHT 1;"H=AYUDA”; BRIGHT O 
590 LET CX=0 
600 GO SUB 800 
610 GO SUB 900 
615 IF C=0 AND M=1 THEN IF R=11 AND O=11 AND E=11 AND S=11 THEN GO TO 1600 
620 IF INKEY$="0" THEN GO SUB 1000 
630 IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO SUB 2000 
640 IF INKEY$="P" THEN GO TO 3000 
650 IF INKEY$="R" THEN IF C<>0 THEN PRINT AT 13,19; FLASH 1;"MAZO"; FLASH 0: 
GO SUB 4000 
660 IF INKEY$="N" THEN IF M<>1 THEN PRINT AT. 16,24; FLASH 1;"MONTON”; FLASH 0 
: GO SUB 5000 
670 IF INKEY$="Q" THEN GO TO 970 
680 IF INKEY$="8H4" THEN GO SUB 5600 
690 GO TO 600 
700 PRINT AT Ax*2,CXFx3+2;A$(A, CXF+1) 
710 RETURN 
750 PRINT AT FILAB*x2,CXB*3+2;"  " 
760 RETURN : 
800 IF INKEY$="8" THEN PRINT AT 0,CX*x3+2;"  ": BEEP .01,40: LET CX=CX+(1 AND C 
Xxx<>4) a 
- 810 IF INKEY$="5" THEN PRINT AT 0,CXx*3+2;"  ": BEEP .01,40: LET CX=CX+(-1 AND 
CX<>0) 
820 RETURN 
900 PRINT.AT 0,CX*3+2; BRIGHT 1;"x/"; BRIGHT O 
910 RETURN 
950 PRINT AT 0,CXB*3+2;" 
960 RETURN 
970 PRINT AT 21,0;"SI ESTAS SEGURO PULSA 'C”" 
975 LET K$=INKEYS$ 
980 IF K$="C" THEN GO TO 10 
990 IF K$="" OR K$="Q" THEN GO TO 975 
995 PRINT AT 21,0;" ": GO TO 600 
1000 LET CXB=CX 
1010 GO SUB 900 
1020 PRINT AT 0, CXBx3+2;'"Xx/" 
1030 GO SUB 800 
1040 IF INKEY$<>"1” THEN GO TO 1010 
1050 LET CXF=CX 
1060 LET X=CXB 
1070 GO SUB 1500 
1075 IF A=1 THEN GO SUB 950: RETURN 
1080 LET FILAB=A-1 


A 


1090 
1095 
1100 
1105 
1110 
1120 
1130 
1200 
1205 


1210 
1220 
1230 
1235 
1290 
1300 
1310 
1315 
1320 
1330 
1340 
1400 


A) 
1410 
1500 
1510 
1520 
1530 
1600 
1610 
1620 
1625 
1630 
1640 
1650 
2000 
2010 
2020 
2030 
2040 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2350 
RN 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 


LET X=CXF 

GO SUB 1500: IF A=1 THEN GO SUB 950: GO TO 1210 
IF A=11 THEN IF A$(A,X+1)<>"  " THEN RETURN 

IF A$(A,CXF+1)="  ” THEN IF A=1 THEN GO TO 1210 
GO SUB 1200 

GO SUB 950 

RETURN 

IF A=1 THEN GO TO 1210 


GO SUB 1300: IF A$(A-1,CXF+1,2)=AS(FILAB,CXB+1,2) OR FINAL<=BASE OR FINAL<> 
BASE+1 THEN RETURN 


LET A$(A, CXF+1)=AS(FILAB, CXB+1) 
LET AS(FILAB, CXB+1)="  " 
GO SUB 750 

GO SUB 700 

RETURN 

LET P$=AS(FILAB, CXB+1, 1) 
GO SUB 1400 

LET BASE=FINAL 

LET P$=A$(A-1,CXF+1, 1) 
GO SUB 1400 

RETURN 


e 


LET FINAL=(1 AND P$="A")+(2 AND P$="2")+(3 AND P$="3")+(4 AND P$="4")+(5 AN 
D P$="5")+(6 AND P$="6")+(7 AND P$="7")+(8 AND P$="J")+(9 AND P$="Q")+(10 AND PS 


RETURN 

FOR A=1 TO 10 

IF A$(A,X+1)="  " THEN RETURN 

NEXT A 

RETURN 

PRINTMAT 21505 FLASH MS DO “CONOS E QUO IS ME 
FOR A=-40 TO 40: BEEP .01,A 

IF INKEYS$<>"" THEN GO TO 1630 

NEXT A: IF INKEY$="" THEN GO TO 1610 
PAUSE 0 

CLS 

GO TO 100 

IF INKEY$="0" THEN GO TO 2200 

IF INKEY$="C" THEN SO TO 2400 


IF INKEY$="E" THEN 30 TO 2600 

IF INKEY$="B" THEN SO TO 2800 

GO TO 2000 

LET X=CX 

GO SUB 1500 

IF A<>1 THEN LET A=A-1 

IF R$(R)=" " THEN IF A$(A,CX+1,1)="A" THEN GO SUB 2310 
IF R$(R)=" " THEN IF A$(A,CX+1,1)<>"A" THEN RETURN 

LET P$=R$(R, 1) 

GO SUB 1400 


LET BASE=FINAL 

LET P$=4$(A, CX+1, 1) 

GO SUB 1400 

IF BASE<>FINAL-1 THEN RETURN 
LET R=R+1: GO SUB 2350 

RETURN 


LET R$(R)=A$(A,CX+1): IF R$(R,2)<>"0" THEN LET R$(R)="  ": 


GO SUB 2370: LET A$(A,CX+1)="  ": RETURN 

PRINT AT 3,19;R$(R) 

LET FILAB=A: LET CXB=CX: GO SUB 750 

RETURN 

LET X=CX 

GO SUB 1500 

IF A<>1 THEN LET A=A-1 

IF O$(0)=" " THEN IF A$(A,CX+1s1)="A" THEN GO TO 2510 
IF O$(0)="- " THEN IF A$(A,CX+1,1)<>"A" THEN RETURN 
LET P$=0$(0, 1) 

GO SUB 1400 

LET BASE=FINAL 


FLASH 0 


LET R=R-1: 


RETÚ 
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2480 
2490 
2500 
2510 
2520 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3100 
3110 
3120 
3125 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3250 
3260 
3270 


LET P$=A$(A, CX+1,1) 

GO SUB 1400 

IF BASE<>FINAL-1 THEN RETURN E 
LET O=0+1: GO SUB 2550 
RETURN 

LET O$(0)=AS(A, CX+1): 

GO SUB 2570: LET A$(A,CX+1)="  ": 
PRINT AT 3,25;0$(0) 

LET FILAB=A: LET CXB=CX: GO SUB 750 
RETURN 

LET X=CX 

GO SUB 1500 

IF A<>1 THEN LET A=4-1 

IF ES(E)=" " THEN 
IF-E$(E)=" " THEN 
LET P$=E$(E, 1) 

GO SUB 1400 

LET BASE=FINAL 

LET P$=A$(A, CX+1, 1) 


RETURN 


IF A$(A,CX+1,1)<>"A" THEN RETURN 


GO SUB 1400 

IF BASE<>FINAL-1 THEN RETURN 
LET E=E+1: GO SUB 2750 
RETURN 


LET ES(E)=A$(A, CX+1): 
GO SUB 2770: LET A$(A,CX+1)=" 
PRINT AT 8,19;E$(E) 

LET FILAB=A: LET CXB=CX: GO SUB 750 
RETURN 

LET X=CX 

GO SUB 1500 

IF A<>1 THEN LET A=4-1 

IF S$(5S)=" " THEN 
IF S3$(5S)=" " THEN 
LET P$=5$(S,1) 

GO SUB 1400 

LET BASE=FINAL 

LET P$=A$(A, CX+1, 1) 
GO SUB 1400 

IF BASE<>FINAL-1 THEN RETURN 
LET S=S+1: GO SUB 2950 
RETURN 

LET S$(S)=AS(A, CX+1): 
GO SUB 2970: LET A$S(A,CX+1)="  ": 
PRINT AT 11,24;5$(5) 

LET FILAB=A: LET CXB=CX: GO SUB 750 


'": RETURN 


IF A$(A,CX+1,1)<>"A" THEN RETURN 


RETURN 


RETURN, 

REM PALO A MESA 

IF INKEY$="0" THEN GO TO 3100 
IF INKEY$="C" THEN GO TO 3250 
IF INKEY$="E" THEN GO TO 2400 
IF INKEYS$="B" THEN GO TO 3550 
GO TO 3000 

IF R$(R)="  " THEN GO TO 600 
LET X=CX 

GO SUB 1500: IF A=11 THEN IF AS(A-1,CX+1)<>"  " THEN 
IF A=1 THEN GO TO 3150 

LET P$=R$(R) 

GO SUB 3900 

LET A$(A, CX+1)=R$(R) 

LET R$(R)=" " 

IF R<>1 THEN LET R=R-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 3,19;R$(R) 

GO TO 600 

IF 0$(0)=" " THEN GO TO 600 
BEMA=CX 

GO SUB 1500: IF A=11 THEN IF AS(A-1,CX+1)<>"  " THEN 


IF 0$(0,2)<>"C" THEN LET O=0-1: 


IF E$S(E,2)<>"E" THEN LET E=E-1: 


IF S$(S,2)<>"B" THEN LET S=S-1: 


RETURN 


IF A$(A,CX+1,1)="A" THEN GO TO 2710 


RETURN 


IF A$(A,CX+1,1)="A" THEN GO TO 2910 


RETURN 


GO TO 600 


GO TO 600 


3275 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3400 
3410 
3420 
3425 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3550 
3560 
3570 
3575 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3700 
3710 
3900 
3905 
3910 
3915 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
4000 
4010 
4020 
4030 
4040 
4100 
4110 
4120 
4130 
4140 
4150 
4200 
4210 
4220 
4230 


RETURN 


4235 
4240 


IF A=1 THEN GO TO 3300 

LET P$=0$(0) 

GO SUB 3900 

LET AS$(A, CX+1)=0$(0) 

LET O$(0)="  " 

IF 0<>1 THEN LET 0=0-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 3,25;0$(0) 

GO TO 600 

1 E$S(E)=" " THEN GO TO 600 

LET X=CX 

GO SUB 1500: IF A=11 THEN IF AS$(A-1,CX+1)<>"  " THEN GO TO 600 
IF A=1 THEN GO TO 3450 

LET PS$=ES(E) 

GO SUB 3900 

LET A$(A, CX+1)=ES$(E) ; 
LEEN) E S É 
IF E<>1 THEN LET E=E-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 8,19;E$(E) 

Go TO 600 

IF S$(S)=" " THEN GO TO 600 

LET X=CX 

GO SUB 1500: IF A=11 THEN IF A$(A-1,CX+1)<>" " THEN GO TO 600 
IF A=1 THEN GO TO 3600 a 

LET P$=8$(8) 

GO SUB 3900 

LET A$(A, CX+1)=S$(S) 

LET Ss$(s)="  " 

IF S<>1 THEN LET S=S-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 11,24;S$(5) 

GO TO 600 

PRINT AT 1,19;"OROS";AT 1,25; "COPAS"; AT 6,19; "ESPADAS";AT 9,24; "BASTOS" 


RETURN 

IF A$(A-1,CX+1,2)=P$(2) THEN GO TO 8600 

LET P$=P3(1) 

GO SUB 1400 

LET BASE=FINAL 

LET P$=A$(A-1,CX+1,1) 

GO SUB 1400 

IF FINAL<>BASE+1 THEN GO TO 600 

RETURN 

PRINT AT 15,19;"*4*"; OVER 1;CHR$ 8;CHR$ 8;"__" 

PRINT AT 13,19; "MAZO= ";C;" " 

RETURN 

PRINT AT 15,19;B$(C) : d 

IF INKEY$="M" THEN GO TO 4100 

IF INKEY$="T" THEN GO SUB 4200: IF A$(A,CX+1)=B$(C+1) THEN RETURN 

IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 4300 
GO TO 4000 t 
LET M$(M)=B$(C) 

PRINT AT 18,24;M$(M) 

LET M=M+1 

LE? C=C-1 

GO SUB 3960 

RETURN 

GO SUB 900: GO SUB 800 

IF INKEY$<>"1" THEN GO TO 4200 . 

LET X=CX 

GO SUB 1500: LET A$(A,CX+1)=BS(C): IF A=11 THEN IF AS(A,CX+1)<>" " THEN 


IF A=1 THEN GO TO 4250 
GO SUB 4500: IF BASE>=FINAL OR BASE<>FINAL-1 OR A$(A,CX+1,2)=A$(A-1, CX+1,2) 


THEN LET A$(A,CX+1)="  ": RETURN 


4250 


LET C=C-1 
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4260 
4270 
4280. 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
: GO 
4370 
4380 

14500 
4510 
4520 
4530 
4540 
4550 
5000 
5010 
5020 
5100 
5110 
5120 
5130 
5140 
TURN 
5150 
5155 

THEN 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
ET M= 
5270 
5280 
5300 
5310 
5320 
5330 
5500 
5510 
5800 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 


LET CXF=CX 
GO SUB 700 
GO SUB 3960 
RETURN 

IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 4320 
GO TO 4300 

LET X=CX 

GO SUB 1500: IF A=11 THEN IF A$(A,CX+1)<>"  " THEN RETURN 

LET A$(A, CX+1)=B$(C) 

GO SUB 2000 

IF R$(R)=B$(C) OR O$(0)=B$(C) OR E$(E)=B$(C) OR S$(S)=B$(C) THEN LET C=C-1 
SUB 3960: RETURN 

LET A$(A, CX+1)=" 

GO TO, 4000 

LET A$(A, CX+1)=B$(C) 

LET FILAB=A 

LET CXF=CX 

LET CXB=CX 

GO SUB 1300 

RETURN 

IF INKEY$="T" THEN GO TO 5100 

IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 5200 

GO TO 5000 

GO SUB 900 

GO SUB 800 

IF INKEY$<>"1" THEN GO TO 5100 

LET X=CX 

GO SUB 1500: IF A=11 AND A$(A,CX+1)<>"  " THEN PRINT AT 16,24; "MONTON": RE 


IF A=1 THEN LET A$(A,CX+1)=M$(M-1): GO TO 5160 

GO SUB 5500: IF BASE>=FINAL OR BASE<>FINAL-1 OR A$(A,CX+1,2)=A$(A-1,CX+1, 2) 
LET A$(A,CX+1)="  ": GO TO 5320 

LET M=M-1 

LET CXF=CX y 

GO SUB 700 

GO TO 5300 

1F INKEY$="0" OR INKEY$="C" OR INKEY$="E” OR INKEY$="B" THEN GO TO 5220 

GO TO 5200 » 

LET X=CX 

GO SUB 1500 

LET AS(A, CX+1)=M$(M-1) 

GO SUB 2000 

1F R$(R)=M$(M-1) OR O$(0)=M$(M-1) OR ES$(E)=M$(M-1) OR S$(S)=M$(M-1) THEN L 

M-1: LET A$(A,CX+1)="  ": GO TO 5300 

GO TO 5320: LET A$(A,CX+1)=" 

RETURN 

LET M$(M)="  ": IF M=1 THEN PRINT AT 18,24;"  ": GO TO 5320 

PRINT AT 18,24;MS(M-1) 

PRINT AT 16,24; "MONTON" 


RETURN 

LET A$(A, CX+1)=M$(M-1) 

GO TO 4510 

RANDOMIZE USR 5E4: CLS 

PRINTCATOO MS aa CURSOR A LA IZQUIERDA" 
PRINT O o a CURSOR A LA DERECHA” 
ERIN COGER UNA CARTA” 
PRINTER SOLTAR UNA CARTA" 
PRINT' Rato ROBAR CARTA DEL MAZO” 
PRINT AM A PASAR CARTA AL MONTON" 
PRINTS: A PASAR CARTA A LA MESA” 
A A SOLTAR CARTA EN MESA” 
PRINT " 0,C,E,B...PASAR CARTA AL PALO” 
PRINTV Nas aaa ad e PASA CARTA DEL MONTON" 
PRINT io A LA MESA" 

LEEN. ML SOLTAR CARTA EN MESA” 
PRINT " O,C,E,B...AL PALO” 


ENT Pocero PASA CARTA DEI, PALO” 


al A LA MESA" 
STUZO-PRINE: ei tia e as RENDIRSE" 
5790 PAUSE O 


5800 RANDOMIZE USR 50100 
5810 RETURN 


ET C=0 
20 FOR A=1 TO 10: 


Empezaremos con las de uso del pro-. 


grama. 

Una vez que hayas metido el programa 
en tu SPECTRUM y hayas hecho RUN, la 
pantalla del ordenador se volverá blan- 
ca y al rato aparecerá un mensaje en 
FLASH que te indicará que el programa 
está barajando las cartas. Tras unos se- 
gundos aparecerá un mensaje que te 
dice que cortes y unos números que se 
suceden a gran velocidad. En este mo- 
mento tienes que pulsar una tecla para 
que el programa corte. 

Una vez llegados a este punto apare- 
cerá en pantalla el tablero con las car- 
tas. A partir de este momento puedes em- 
pezar a jugar. Si no te acuerdas de todas 
las teclas que puedes utilizar en el pro- 
grama, pulsa la tecla «H» y te aparecerá 
un resumen de ellas por pantalla. 

El objetivo del juego es formar cada 
palo desde el AS hasta el REY. 

Al principio del juego, y después de 
cortar, te aparecerán las cartas en la 
pantalla de arriba a abajo y de izquier- 
da a derecha. Las cartas sobrantes for- 
marán el mazo. 


La forma de jugar es la siguiente: 


1. Se reordenan las cartas que inicial- - 


mente están en la mesa. Con las teclas 5 
y 8 se mueve el cursor superior (5 = iz- 
quierda, 8 = derecha). El cursor apunta a 
una columna y, en esta columna, a la 
carta situada más bajo. Para coger car- 
ta tienes que pulsar el 0, después de mo- 


DAGOTBRINT: 1 A SOLTAR CARTA EN MESA” 


5780 PRINT AT 21,0; FLASH 1;"PULSA UNA TECLA PARA SEGUIR. "; FLASH O 


5900 DATA 33,0,64,17,214,216,1,0,27,237,176,201 
5910 DATA 33,214,216,17,0,64,1,0,27,237,176,201 


10>CLEAR :DIM A$(11,5,2):DIM B$(40,2):DIM C$(40,2):DIM E$(11,2):DIM O$(11,2): 
DIM R$(11,2):DIM 5$(11,2):DIM M$(30,2):LET R=1:LET O=1:LET E=1:LET S=1:LET M=1:L 


LET C=C+1: RESTORE 90: 


IF C=8 THEN LET C=10 


LART 


Aa 
CAAF TES Eb Ez 


El PRL 


hh LINA TECLEA PAFRF 


[A El programa ejecutante. 


ver el cursor hasta la columna deseada 
y pulsar el 1 para soltar la carta. Si quie- 
res dejar la carta donde estaba tienes 
que pulsar el 1 con el cursor en la misma 
columna. La carta se puede mover de 
una a otra columna si la carta de la co- 
lumna inicial es de distinto palo que la 
carta de la columna final. Además, la 
carta inicial debe ser un punto más baja 
que la final, es decir, que si la carta ini- 
cial es un 7 y la final una SOTA, podrás po- 
ner el 7 sobre la sota. 

2. Robar del mazo pulsando la R. La 
carta superior del mazo se levantará pu- 
diendo hacer con ella lo siguiente: 

a) Pasarla a la mesa pulsando | y con- 
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trolando con 5 y 8 el cursor. Pulsar 1 para 
dejar la carta. 


b) Pasarla al palo correspondiente 
pulsando O, C, E o B, según sea el palo 
de la carta. Si no hay ninguna carta en el 
palo, la primera tiene que ser un AS. 


Cc) Pasarla al montón pulsando H. El 
montón está formado por las cartas que, 
o bien ho podemos poner en la mesa, o 
bien no nos conviene ponerla en la 
mesa. 


3. Pasar carta de la mesa al palo 
correspondiente situando el cursor en la 
columna donde está la carta y pulsar O, 
C,E OB según sea el palo de la carta. Las 
cartas hay que pasarlas al mazo por or- 
den, no pudiendo poner, por ejemplo, el 
5 de copas si no está el 4 de copas. 


4. Pasar carta del montón al: 
a) Palo pulsando N y después O, C, E 
oB. 


b) A la mesa, pulsando N primero y 
después de | situar el cursor en la colum- 
na deseada y pulsar 1 para soltaria. 

5. Pasar del palo a la mesa pulsado 
primero P y después O, C,E o B para si- 


tuar la carta, si es posible, en la posición 
del cursor en la mesa. 

La tecla QA nos servirá para rendirse y 
empezar de nuevo. 

Cuando la carta superior de cada palo 
es el rey, entonces habrás terminado con 
éxito la partida. 


OROS COPAS 


MONTON 


H=AYUDA 


[A Instrucciones del programa 


OMO conclusión de 
los conceptos ex- 
puestos sobre las ta- 
blas de decisión, pre- 
sentamos las normas 
que suelen seguirse 


tablas, según el tipo 
de reglas que se han utilizado. 

Hay que controlar dos aspectos: la 
existencia de redundancias (para elimi- 
narlas adecuadamente) y el número to- 
tal de reglas (para asegurarnos de que 
la tabla es completa). 

En todos los casos se supone que se 
cumplen las siguientes condiciones: 

a) Latabla de decisión es limitada (es 
decir, todas y cada una de las condicio- 
nes presentes en la tabla pueden eva- 
luarse en forma afirmativa o negativa). Si 
la tabla no era originalmente limitada, ha 
de convertirse en limitada para hacer las 
evaluaciones que indicamos a continua- 
ción. 

b) Cada regla de la tabla de decisión 
conduce a un tratamiento. 

c) Las condiciones presentes son in- 
dependientes entre sí (es decir, el que se 
cumpla una condición en una situación 
determinada no significa que se cumpla 
ninguna otra). E 

Vamos a denotar por «n» el numero 
de condiciones que aparecen en la ta- 
bla de decisión, independientemente 
del número de tratamientos que aparez- 
can. 


Análisis de tablas de decisión 
== con reglas AND 


Se examinarán dos aspectos: 
a) Eliminación de redundancias: 


en el análisis de las 


TECNICAS DE ANALISIS 


TABLAS DE DECISION (y 11) 


. 
A 


Para ello, se comparan la reglas de 2 
en 2. Las funciones de decisión han de 
ser distintas al menos para una evalua- 
ción de alguna de las condiciones (nor- 
malmente serán distintas en varios de los 
casos posibles). Se produce la redundan- 
cia cuando hay dos reglas que no con- 
tienen esa diferencia de evaluación y, 
por tanto, habrá que eliminar una de 
ellas. Puede suceder que, en el análisis 
anterior, se detecte que dos condiciones 
que se tenía por distintas son, en reali- 
dad iguales o dependientes; si, como re- 
sultado de esta evaluación, se modifica 
el conjunto de condiciones definido, es 
imprescindible rehacer todo el examen 
de redundancias desde el principio, 
para asegurar la consistencia del análi- 
sis realizado. En ocasiones, incluso dos 
reglas son redundantes pero los trata- 
mientos a que dan lugar son distintos 
(zona inferior de la tabla): en ese caso, 
se dice que hay contradicción entre re- 
glas y es imprescindible la eliminación 
de una de ellas (una vez examinada cui- 
dai la funcionalidad de am- 

as). 


b) Control de completud: 


Para que la tabla de decisión sea com- 
pleta, el número de combinaciones en- 
tre las condiciones que se puede dar (2”) 
ha de ser igual al número de reglas que 
aparecen en la tabla, teniendo en cuen- 
ta las indiferencias existentes (casos en 
que la condición ni ha de cumplirse ni 
dejar de cumplirse: se esciben como: - 
o como ”). 


Para tener en cuenta las indiferencias, 
las reglas que contienen una sola (un 
solo - en la tabla) se computan como 2. 
Si una regla tiene dos indiferencias (dos 


pl TECNICAS DE ANALISIS 


- en su columna correspondiente), se 
cuentan cuatro posibles casos para esa 
regla: puede pensarse que cada una de 
las indiferencias puede ser S o N y, por 
tanto, hay 2? = 4 posibles combinaciones 
(SS, SN, NS, NN). Si una regla tiene tres in- 
diferencias, se cuenta como 8 (2*) pues 
pueden darse ocho combinaciones para 
esa regla, según los valores que tomen 
esas indiferencias (SSS, SSN, SNS, SNN, 
NSS, etc.). Así pues, si denotamos por 
N(=2”) el número de condiciones presen- 
tes en las reglas AND, para que la tabla 
sea completa ha de cumplirse que 


N = 2 ZN, 


donde m es el número máximo de indife- 
rencias que aparece en cualquiera de 
las reglas de la tabla de decisión. Obsér- 
vese que los primeros sumandos de la 
suma anterior son: 22-N,=1-N,=N, (nú- 
mero de reglas simples, es decir, sin indi- 
ferencias); 2' » HN, = 2 - N, (donde N, es el 
número de reglas que tiene una indife- 
rencia); 2? - N, = 4 - N, (N, es el número de 
reglas presentes con dos indiferencias), 
etcétera. 

Si en la tabla de decisión hay una re- 
gla ELSE, y esta regla agrupa N, reglas, la 
completud de la tabla viene dada por 


N = 2 21 + N, + N, 


O Análisis de tablas de decisión 
con reglas AND y OR 


a) Eliminación de redundancias. 

Hay que comparar dos a dos las reglas 
AND con las OR y las OR entre sí. 

Cuando se compara una regla AND 
con otra OR, se comprueba que no hay 
redundancia si las dos funciones presen- 
tan evaluaciones contrarias para cada 
condición, excepto en el caso en que en 
alguna de las funciones presente una 
marca de indiferencia. 

En el caso de la comparación entre re- 
glas OR, no habrá redundancia o depen- 
dencia cuando las funciones de ambas 
presentan una anotación * en cada una 
de sus condiciones, excepto en una, que 
debe ser la misma para las dos y con 
evaluaciones distintas. 


- b) Control de completud. 
Las reglas de tipo AND se cuentan 


- COmo se ha descrito anteriormente, 


En las de tipo OR, hay que multiplicar 
el número de reglas con «j» ocurrencias 
por un coeficiente (como en el caso 
AND) que en este caso es 2” - 2): es de- 
cir, de las 2" posibles combinaciones que 
se pueden establecer en cada regla, 
hay que descontar 2! que no se obtienen 
por la aparición de «j» indiferencias. Por 
tanto, la suma de todas las posibilidades 
con reglas OR viene dada por la expre- 
sión 


Do (2 a 21) : N; 


Obsérvese que 2” = N es el número de 
condiciones posibles y los primeros su- 
mandos de la suma anterior son (2” —- 1)- 
N, (donde N, es el número de reglas OR 
con cero indiferencias), (27 — 2)-N, (para 
las reglas con una indiferencia), etc. 

La suma total de las reglas para el 
cálculo de la completud será (para esta 
situación en que existen reglas AND y re- 
glas OR), 


ma Pp 
N = 2 2-N, +N¿+ z 2-N 


A Análisis de tablas de decisión 
u con condiciones dependientes 


En este caso, la dependencia entre 
condiciones tiene lugar únicamente en- 
tre reglas AND, ya que las reglas OR no 
pueden contradecirse entre sí, 

El cálculo de reglas total se hace como 
en los casos anteriores y las condiciones 
de redundancia no varían. 

En este caso, no existen 27 combinacio- 
nes (el número N antes considerado) ya 
que entre dos o más condiciones no se 
formarían todas las combinaciones posi- 
bles. 

Si consideramos que hay G, grupos de 
dos condiciones dependientes entre sí y 
G, grupos de tres condiciones, etc., el 
factos a introducir será K-G,, de modo 
que el número total de reglas será 


| e 
- K - G, donde «dl» es el número de con- 


diciones dependientes entre sí que exis- 
tan en el grupo de condiciones que ten- 
ga más. 


A RE E ii o ri 


Matrices 
m o tablas 


N el capítulo anterior 
hemos visto cómo 
pueden proporcio- 
, hársele a los progra- 
mas datos aislados 
(escalares) o colec- 
ciones de datos (vec- 
tores o series). Vamos 
a dedicar ahora nuestra atención a es- 
tructuras algo más complejas, que reci- 
ben el nombre de matrices o «tablas». 
Una tabla o matriz es un conjunto de 
datos dispuestos a lo largo de dos dimen- 
siones, en forma de rectángulo. Veamos 
un ejemplo: 


Siempre es posible considerar una ta- 
bla como una colección de vectores o 
series de datos. En el ejemplo anterior, 
podemos ver fácilmente que la matriz se 
compone de las tres series siguientes: (1, 
2,3, 4), (5, 6,7, 8) y (9, 10, 11, 12). Estas 
tres series se llaman las «filas» de la ma- 
triz. Al leer sucesivamente las filas de una 
matriz, enunciamos todos los elementos 


de ésta en un orden determinado, de iz- - 


quierda a derecha y de arriba a abajo: 
1,2,3,4,5,6,7,8,9, 10, 11, 12. Se dice, 
en este caso, que la matriz ha sido leída 
«por filas». 

Por otra parte, y puesto que la tabla es 
rectangular, también podemos conside- 


TECNICAS 
DE PROGRAMACION 


ESTRUCTURA DE DATOS 


rarla como una colección de las cuatro 
series o vectores siguientes: (1, 5, 9), (2, 
6, 10), (3, 7, 11), (4, 8, 12). Cada una de 
estas series es una «columna» de la ma- 
triz. Además, al leer sucesivamente las 
columnas de la matriz, enunciamos sus 
elementos de arriba a abajo y de dere- 
cha a izquierda (al estilo japonés): 1, 5, 
9,2,6, 10,3,7, 11, 4, 8, 12. Decimos en- 
tonces que la matriz ha sido leída «por 
columnas». 

Por lo que acabamos de ver, está cla- 
ro que la matriz del ejemplo tiene tres fi- 
las y cuatro columnas. El número total de 
datos que contiene es precisamente 
igual al producto del número de sus filas 
por el número de sus columnas. Es decir: 
3 x 4 = 12. Es fácil comprobar que, en 
efecto, la tabla anterior tiene doce da- 
tos. 

Veamos algunos ejemplos más. La ta- 
bla 


0 NO. 
Oo0O0oamM 


tiene cinco filas y dos columnas. Vemos, 

pues, que es posible que una matriz ten- 

ga menos columnas que filas, lo que le 

dará una forma alargada verticalmente. 
La tabla 


<A. 
on» 
Dow 


tiene tres filas y tres columnas. Por razo- 
nes obvias, cuando una matriz tiene el 
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mismo número de filas que de columnas, 
se dice que es «cuadrada». En caso con- 
trario, se dice que es «rectangular». 


La tabla 


es un poco especial. Tiene cuatro filas: 
(D, (2), (3) y (4), pero una sola columna: 
3, 4). Finalmente, la tabla 


tiene una sola fila: (1, 2, 3, 4) y cuatro co- 
lumnas: (1), (2), (3) y (4). Es fácil darse 
cuenta de que esta última tabla puede 
considerarse también como una serie o 
vector de cuatro elementos. 

Las tablas o matrices se usan frecuen- 
temente en los programas, pues no es 
raro que los datos que hemos de utilizar 
se distribuyan de forma natural en una 
disposición rectangular. En el lenguaje 
BASIC, una tabla debe declararse, al 
igual que un vector, mediante una ins- 
trucción DIM, pero en lugar de indicar el 
número de sus elementos, daremos el nú- 
mero de sus filas y el número de sus co- 
lumnas, como en el siguiente ejemplo: 


DIM M(3,4) 


donde declaramos que la variable M es 
una tabla de tres filas y cuatro columnas, 
como la de nuestro primer ejemplo. 

¡Bien! Ya tenemos definida la matriz. 
Pero ahora falta llenar sus casillas con los 
doce valores correspondientes. En BASIC 
esto se puede hacer de la siguiente ma- 
nera: 


M(1,1)=1 
LET M(1,2)=2 
LET M(1,3)=3 
LET M(1,4)=4 
LET M(2,1)=5 
LET M(2,2)=6 
LET M(2,3)=7 
LET M(2,4)=8 
LET M(3,1)=9 
LET M(3,2)=10 
LET M(3,3)=11 
M(3,4)=12 


En el caso concreto de nuestro ejem- 
plo, podemos llenar la matriz de otra ma- 
nera, más rápida, haciendo uso del he- 
cho de que los doce valores son conse- 
cutivos y utilizando dos bucles: uno sobre 
las filas y otro sobre las columnas. El pro- 
grama correspondiente quedará así: 


LET K=1 
FOR I=1 TO 3: FOR J=1 TO 4 
LET M(1,J)=K:z LET K=k+1 

NEXT JJ: NEXT I 


Explicaremos este programa cuando 
hablemos de los bucles. Por el momento, 
basta con ver que, efectivamente, el pro- 
grama 3 es totalmente equivalente al 2, 
pues realiza la misma función. Eso puede 
comprobarse ejecutándolo en cualquier 
ordenador que disponga de un intérpre- 
te de BASIC. Pero todavía se puede sim- 
plificar un poco más, como en la siguien- 
te versión: 


FOR I=1 TO 3: FOR J=1 TO 4 
LET M(1,J)=3+4% (1-1) 
NEXT J: NEXT 1 


Obsérvese, en efecto, que la expresión 
3+4*(I-1) genera precisamente los núme- 
ros de 1 a 12 a medida que | varía de 1 
a 3 y J varía de 1 a 4, de acuerdo con los 
límites de los bucles correspondientes. 
Todo esto quedará explicado con deta- 
lle más adelante. 

En BASIC, para que aparezcan por la 
pantalla los valores de la tabla M, pode- 
mos hacer dos cosas: o bien escribirlos 
uno por uno, o bien conjuntamente, utili- 
zando bucles. Por ejemplo, supongamos 
que queremos ver en la pantalla el valor 
del elemento de la tabla situado en la se- 
gunda fila y la tercera columna. Bastaría, 
para ello, con la instrucción siguiente: 


PRINT M(2,3) 


y obtendremos el resultado (7). En cam- 
bio, para que la tabla nos aparezca en- 
tera, tendremos que utilizar el doble bu- 
cle siguiente: 


FOR I=1 TO 3: FOR J=1 TO 4 
PRINT M(1,J3)5 

NEXT J: PRINT: NEXT 1 
3 4 


28 
o 11 


que producirá el resultado indicado. La 
primera instrucción PRINT (PRINT M (l,J);) 
termina en punto y coma para indicarle 
al intérprete que no debe escribir un 
paso de línea después de este elemento 
de la tabla. La segunda instrucción PRINT, 
que sólo se ejecuta una vez al final de 


cada fila, escribe precisamente el paso 


de línea correspondiente. 

Finalmente, veamos un programa com- 
pleto escrito en BASIC que declara una 
tabla, llena los valores correspondientes 
y los escribe por la pantalla: 


DIM M(3,4) 
20 FOR I=1 TO 3: FOR J=1 TO 4 
30 LET M(1,J)=J+4x (1-1) 

* 40 NEXT J:z NEXT I 
50 FOR I=1 TO 3: FOR J=1 TO 4 
60 PRINT M(1,J)35 

NEXT J: PRINT: NEXT 1 


Veamos ahora cómo se trabaja con ta- 
blas en el lenguaje PASCAL. Como cual- 
quier otra variable, es preciso declarar- 
las, lo que se hace con una instrucción 
muy parecida a la que utilizamos en el 
capítulo anterior para declarar vectores: 


Esta instrucción define m como una ta- 
bla de números enteros («integer» en in- 
glés) de tres filas y cuatro columnas. Ob- 
sérvese que se utiliza también la palabra 
reservada «array» (que significa «secuen- 


cia», «disposición», y en este caso equi- 
vale a «tabla», equivalente a DIM de 
BASIC. 

En PASCAL también es posible llenar la 
tabla elemento a elemento, como vimos 
en BASIC. Se haría así: 


mf1,1J:=1; 
ml1,21:=2; 
ml1,31:=3; 
mL1,41:=4; 
mc2,11:=5;3 
m[2,21:=b; 
mc2,31:=7; 
m[2,43:=8; 
m(3,11:=9; » 
m[3,21;=10; 

ml3,31:=11; 

m[3,41:=12; 


Pero en este caso es mejor hacerlo me- 
diante un bucle parecido al del progra- 
ma BASIC: 


for iz=1 to 3 do 
for j:=1 to 4 do 
mliz,jldi= j+4x(i-1)3 


Para escribir un valor de la tabla en la 
pantalla, por ejemplo, el situado en la se- 
gunda fila y la tercera columna, podría- 
mos utilizar la instrucción «write» (escribir, 
en inglés), equivalente a PRINT de BASIC, 
de la siguiente manera: 


Para escribir la tabla entera, usaremos 
un doble bucle muy semejante al de BA- 
SIC, donde «write(mli,j], * ")» escribe el va-- 
lor del elemento de la matriz m situado 
en la fila i y en la columna j, seguido de 
un blanco, pero sin pasar a la línea si- 
guiente. En cambio, la instrucción «wri- 
teln», que se ejecuta al final de cada fila, 
escribe un paso de línea que nos permi- 
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te continuar escribiendo una nueva fila 
en la linea siguiente. 


for iz=1 to 3 do 
begin 
for j:=1 to 4 do 
writelm[li,jl,? ?)3 
writeln; 
end 


Finalmente, veamos el programa com- 
pleto escrito en PASCAL, que nuevamen- 
te declara una matriz llamada «m», llena 
sus casillas con los valores de 1 a 12 y los 
imprime en forma de tabla. 


program TABLA; 


var 
i, j: integer; 
ms: arrayl1..3,1..4] of integer; 


begin 
tor iz=1 to 3 do 
for j:=1 to 4 do 
mlizjli= j+4X(i-1); 
for iz=1 to 3 do 
begin 
for j:z=1 to 4 do 
write(mli,jl,? ”); 
writeln; 


que produce el siguiente resultado al 
ejecutarlo: 


Por último, vamos a ver cómo se utilizan 
las tablas en el lenguaje APL. En este len- 
guaje no es necesario declararlas: basta 
con asignarle a una variable el valor 
correspondiente. Existen dos modos prin- 
cipales de construir tablas en el lengua- 
je APL: por enumeración o por cálculo. 

Una tabla se construye por enumera- 
ción por medio del símbolo p (la letra 
griega rho). A la izquierda de este símbo- 
lo se coloca el número de filas y el núme- 
ro de columnas que va a tener la matriz, 


y a su derecha se enumeran los valores 
que van a tomar los distintos elementos, 
. leídos por filas. El resultado puede asig- 
nársele a una variable, que llamaremos 
M, como en los ejemplos anteriores: 


En este caso concreto, la expresión an- 
terior puede reducirse, pues existe en 
APL un símbolo (representado por la letra 
griega iota) que, aplicado a cierto nú- 
mero entero positivo, produce la serie de 
todos los números sucesivos desde 1 has- 
ta dicho entero. Por ejemplo, 15 equivale 
a la serie 1, 2, 3, 4, 5. En nuestro caso, 112 
corresponderá a la serie de números del 
1 al 12. Utilizando este símbolo, el progra- 
ma anterior quedara: 


APL es un lenguaje especialmente di- 
señado para trabajar con facilidad con 


«series y tablas de datos. Por esta razón, 


no son precisos bucles para presentar en 
la pantalla los valores de la tabla que 
acabamos de crear. Basta con invocar su 
nombre y obtendremos el resultado, 
correctamente encolumnado. 


En consecuencia, el programa com- 
pleto que crea una tabla de tres filas y 
cuatro columnas, llena sus valores y los 
imprime por la pantalla, se reduce en el 
caso de APL a las dos instrucciones si- 


guientes: 


M+ 34 p1 12 
A M A 
Ln] = 
d 


|) 
AAA A A A A a nr Y) 


Ñ 


BR TA AA 


Esto en el caso de que queramos con- 
servar la tabla en la variable M. Si lo úni- 
co que queremos es verla, pero no guar- 
darla, el programa anterior se reducirá a 
la instrucción única: 


que, como se indica, produce directa- 
mente el resultado deseado. 

La segunda manera de generar tablas 
en APL es aplicando un cálculo determi- 
nado a los elementos de dos series de 
datos. Recordemos, por un momento, la 
tabla de sumar que estudian los niños en 
el colegio, y que puede representarse 
asi: 


VDaAJann-:umnN pa 


¿Cómo se obtiene esta tabla? Es fácil 
ver que se parte de dos series de datos 
iguales a 1, 2, 3, 4, 5, 6, 7, 8, 9, una de 
las cuales se encuentra en los encabeza- 
dos de las filas y la otra en los de las co- 
lumnas. Un elemento cualquiera de la ta- 
bla (por ejemplo, el de la tercera fila y la 
cuarta columna) se obtiene sumando el 
tercer valor de la serie de datos corres- 
pondiente a las filas (el encabezado de 
la tercera fila) con el cuarto valor de la 
correspondiente a las columnas (el en- 


cabezado de la cuarta columna). En de- 


finitiva, operando de esta manera con to- 
das las combinaciones posibles de un 
elemento de la serie de filas y uno de la 
serie de columnas, se obtiene la tabla 
entera. 


_En APL esta operación se representa, 
simplemente, con la línea siguiente: 


donde la colección de datos correspon- 
diente a las filas se escribe a la izquier- 
da; la de las columnas a la derecha; y en 
medio se coloca un círculo pequeñito 
(que suele obtenerse en los teclados APL 
de la tecla de la Jen posición de mayús- 
culas), seguido de un punto y de la ope- 
ración que se desea realizar entre los 
elementos de las dos colecciones de da- 
tos. El resultado de ejecutar la, línea an- 
terior será el siguiente: 


El procedimiento es totalmente gene- 
ral. Las series izquierda y derecha no tle- 
nen por qué ser iguales, y en lugar de la 
operación suma podríamos haber utiliza- 
do otra cualquiera. Por ejemplo, si pusié- 
ramos el signo «por» (x), obtendríamos la 
tabla de multiplicar. 

Recordando que el símbolo 1 aplicado a 
un entero nos produce los números con- 
secutivos desde 1 hasta el entero, pode- 
mos simplificar más aún la generación de 
la tabla de sumar, reduciéndola-a: 


ooo cum 


aj 
PRovDoJnar0 


En el capítulo siguiente desarrollare- 
mos una aplicación completa de utilidad 
práctica, basada en la utilización de ta- 
blas de valores. 


ODOS hemos oído ha- 
blar de los Tratamien- 
tos de Textos como 
una de las herramien- 
tas más necesarias y 
útiles disponibles en 
un ordenador. Pero 
¿sabemos realmente 
qué es y para qué sirve un Tratamiento 
de Textos? 


Una aplicación de este tipo es algo 
más que un programa para escribir do- 
cumentos, es decir, no es una “máquina 
de escribir electrónica”, sino que es un 
eslabón más de la cadena de utilización 
de un ordenador como herramienta de 
productividad, ya que permite la intro- 
ducción de información en el ordenador 
para que sea elaborada más adelante; 
ya de forma impresa o bien por otro pro- 
grama, como una base de datos. 


Aparte del hecho de introducir el texto 
o datos en el ordenador, podemos resal- 
tar algunos de los aspectos más relevan- 
tes que lo diferencian de una máquina 
de escribir: 


— Corrección de una parte del texto 
sin necesidad de recomponer o corregir 
el resto del texto, ya que éste se reajus- 


APLICACIONES 


TRATAMIENTO DE TEXTOS 


tará de forma automática al introducir la 
corrección. 


— Posibilidad de realizar “plantillas” 
que permiten evitar la introducción de un 


. texto que tenga que ser repetido en va- 


rios documentos, como cabeceras, des- 
pedidas, dirección del usuario, etc. 


— El almacenamiento se reduce de 
una forma considerable, ya que pode- 
mos tener una gran cantidad de docu- 
mentos archivados en un solo disquete. 


Antes de pasar a detallar las caracte- 
rísticas básicas de un procesador de tex- 
to, es conveniente hacer notar que su 
uso de una forma eficaz está condiciona- 
do al ordenador disponible, siendo pre- 
ferible un ordenador con una capacidad 
de memoria algo elevada (128 K min.), y 
la utilización de disquetes como unidad 
de almacenamiento externa. 


[A Características técnicas 


— Avance automático de línea 


El usuario no tiene que preocuparse de 
dónde acaba la línea actual del texto, 


ya que es el programa el encargado de 
controlar la longitud de la línea y pasar 
a la siguiente si se excede ésta. 


— Inserción y supresión de caracteres 
en las posiciones deseadas. 


— Ajuste automático de los párrafos, 
en función de las modificaciones realiza- 
das en él, en alguna de las funciones an- 
teriormente dichas. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
280416 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrlentes, considero oportu- 
no el mantener una reunión el próximo día 28, - 


con el objeto de discutir los pormenores de la 
negociación. 


Me congratulo con la noticia del nacimiento de 
su segundo vástago, aprovechando la ocasión 
para expresarle mi enhorabuena a su encan- 
tadora esposa. 


Atectuosamente: 
Virginia Muñoz 


Ú 
E 


aj Párrafo sin sangrado. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 294 
28016 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 
con el objeto de discutir los pormenores de la 
negoclación. 

Me congratulo con la noticia del nacimiento 
de su segundo vástago, aprovechando la oca- 
sión para expresarle mi enhorabuena a su en- 
cantadora esposa. 

Atectuosamente: 

Virginia Muñoz 


Párrafo reformado. 


— Justificación del texto en los márge- 
nes escogidos por el usuario. Con esta 
función el texto se podrá alinear en algu- 
no de los márgenes, izquierdo o dere- 
cho, o en ambos, mejorando con ello la 
presentación del texto. 


13 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28016 Madrid 


Estimado Eduardo: +. 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo,día 28, 
con el objeto de discutir los pormenores de la 
negociación. 


Me congratulo con la noticia del nacimiento 
de su segundo vástago, aprovechando la oca- 
sión para expresarle mi enhorabuena a su en- 
cantadora esposa. 


Atectuosamente: 
Virginia Muñoz 


== Texto ajustado a la derecha 
y a la izquierda. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
280416 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos 
el pasado 26 de los corrientes, considero 
oportuno el mantener una reunión el próximo 


día 28, con el objeto de discutir los 
pormenores de la negociación. 


Me congratulo con la noticia del nacimiento 
de tu segundo vástago, aprovechando la 
ocasión para expresarle mi enhorabuena a su 
encantadora esposa. 


Afectuosamente: 
Virginia Muñoz 


A, Texto ajustado a la izquierda. 


— Búsqueda y sustitución de palabras 
y frases, de forma completamente auto- 
mática. 


e APLICACIONES 


Estimado Roberto; 

El motivo de la presente es convocarte para 
la concentración preparatoria del partido de 
fútbol que tendrá lugar frente a la selección 
de Madagascar. 


Te recomiendo Roberto que te lleves puestas 
las botas por lo que pudiera pasar. Sin más 
que relatarte, Roberto, recibe un cordial 
saludo de tu presidente: 


Paloma Gandiel 


[A Ejemplo de búsqueda y sustitución. 


Estimado Gaby: 

El motivo de la presente es convocarte para 
la concentración preparatoria del partido de 
fútbol que tendrá lugar frente a la selección 
de Madagascar. 


Te recomiendo Gaby que te lleves puestas 
las botas por lo que pudiera pasar. Sin más 
que relatarte, Gaby recibe un cordial 
saludo de tu presidente: 


Paloma Gandiel 


. 


[A Ejemplo de búsqueda y sustitución. 


— Paginación automática del texto, 
ajustando el texto entre los márgenes iz- 
quierdo y derecho, superior e inferior en 
cada página. z 

— Ajuste del salto entre lineas 

— Impresión del texto con posibilidad 


de elegir el estilo de impresión de todo 
o de una parte del texto. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28016 Madrid 


Estimado Eduardo: 

A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 


con el objeto de discutir los pormenores de la 
negoclación. 


Me congratulo con la noticia del nacimiento de 
su segundo vástago, aprovechando la ocasión 
para expresarle mi enhorabuena a su encan- 
tadora esposa. 


Afectuosamente: 
Virginia Muñoz 


[a Espaciado sencillo entre líneas. 


43 de Febrero de 1987 
Sr. D. E. Gurbindo 
Príncipe de Vergara, 294 
28016 Madrid 

Estimado Eduardo: 

A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 
con el objeto de discutir los pormenores de la 
negociación. 

Me congratulo con la noticia del nacimiento 
de tu segundo vástago, aprovechando la oca- 
sión para expresarle mi enhorabuena a su en- 
cantadora esposa. 


[A Espaciado doble entre líneas. 


— Numeración automática de las pá- 
ginas. 

— Movimiento de parte del texto de 
una posición a otra o posibilidad de al- 
macenar éste en el disco para su poste- 
rior recuperación. 

— Marginación variable. Esta función 
permite ajustar los márgenes del docu- 
mento de tal forma que se acomoden al 
tamaño de la página que vamos a usar. 


| 43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28046 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 
con el objeto de discutir los pormenores de la 
negociación. 


Me congratulo con la noticia del nacimiento de 
tu segundo vástago, aprovechando la ocasión 
para expresarle mi enhorabuena a su encan- 


tadora esposa. 
Afectuosamente: 


[a Margen izquierdo estrecho. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28016 Madrid 


Estimado Eduardo: 


A raíz de la conversación que 
mantuvimos el pasado 26 de los 
corrientes, considero oportuno el 


Virginia Muñoz 


mantener una reunión el 
próximo día 28, con 

el objeto de discutir los 
pormenores de la negociación. 


Me congratulo con la noticia 
del nacimiento de tu segundo vástago, 
aprovechando la ocasión para expresarle 
mi enhorabuena a su encantadora 
esposa. 


(A, Margen izquierdo ancho. 


Funciones avanzadas 


— Creación automática de índices. 
Con esta posibilidad podremos realizar 
un extracto o un sumario del texto. 


— Inserción automática de notas a pie 
de página y cabeceras. 


— Escritura en varias columnas. 


— Posibilidad de realización de docu- 
mentos personalizados con la ayuda de 
un fichero de datos. 


— Corrección ortográfica automática. 
— Inclusión de gráficos en el texto. 


Actualmente están apareciendo en el 
mercado, además de tratamientos de 
textos tradicionales, una serie de progra- 
mas que permiten realizar todas las fun- 
ciones necesarias para la edición y com- 
posición de textos, logrando unos docu- 
mentos con una calidad muy similar a la 
de los creados en una imprenta. 


[| Impresoras 


Un punto importante a tener en cuenta 
a la hora de trabajar con un procesador 
de textos es la calidad y el tipo de la im- 
presora disponible, ya que el resultado fi- 
nal del documento depende en gran 
parte de la calidad de la impresora y de 
sus posibilidades. 


PASCAL 


Comentarios de 
un programa 


ARA que un progra- 
ma resulte más fácil 
de entender, sería 
conveniente poner 
notas explicativas de 
las diferentes partes 
de que consta. Estas 
notas son lo que se 
denomina comentarios, y todos los len- 
guajes de programación permiten aña- 
dirlos a los programas de una manera u 
otra. 


En PASCAL se pueden poner comenta- 
rios en CUALQUIER sitio en que pueda 


(k Esto es un comentario Xx) 
€ Esto es otro > 


Vamos a escribir ahora el programa 
ASIGNACION que hicimos anteriormente 
con comentarios: 


program ÁAsignacion; 


(kx Este ocupa dos líneas y además, 
END y PROGRAM sin que se entere el compilador %) 


aparecer un espacio en blanco (excep- 
to en medio de un texto), pues a la hora 
de traducir el programa, el compilador 
pasa por encima de ellos; sencillamen- 
te, ignora su existencia. 

El comienzo de un comentario se indi- 
ca con un paréntesis izquierdo inmedia- 
tamente seguido de un asterisco (o bien 
una llave izquierda si nuestro ordenador 
tiene ese símbolo); a partir de ahí, el 
compilador considera que todo es co- 
mentario hasta que se encuentra un as- 
terisco seguido de un paréntesis derecho 
(o bien una llave derecha). Un comenta- 
rio puede ocupar todas las líneas que se 
deseen y dentro de él se puede escribir 
CUALQUIER cosa. Posibles comentarios 


- serían, pues: 


en él pone BEGIN 


(x Este programa consta de una serie de ejemplos 
de asignación de datos a variables %) 


N:z integer; (% En esta variable se guardarán números %*) 


C:z char; 


begin 
Ni= 73 


(k y en ésta letras Xx) 


(xk Tras esto, en N hay un siete 1) 


C:i= "A; 


writeln (*N vale ”,N,” 


writeln (*N vale ahora ”,N) 
d. 


El propósito de los comentarios es ha- 
cer los programas más claros, y por ello 
conviene ponerlos de manera que se dis- 
tingan de lo demás a primera vista; en el 
ejemplo está claro que hay mejores sitios 
para algunos de ellos. 

Cuando se está desarrollando un pro- 


grama, a menudo sucede que hay par- . 


tes ya escritas que no nos interesa utilizar 


program Ejemplo; 


begin 
(x 


writeln ('¿ lo ves 7”); 
writeln; 


(Hay una situación curiosa que muy rara- 

mente se da: si en lugar de “¿lo ves?” es- 
tuviera, por ejemplo, “Mira estos dos sim- 
bolos: “y, al llegar ahí, el compilador 
creería que acaba el comentario, con lo 
que al pasar a lo siguiente se produciría 
un error.) 


Indentación 


A lo largo de todos los ejemplos vistos 
hasta ahora hemos utilizado la denomi- 
nada «indentación», que consiste en uti- 
lizar márgenes izquierdos variables para 


(x En C ahora hay una A mayúscula %) 


(k Ahora enseñamos los contenidos de N y C: %) 
y C vale ”,C); 


N:z= (X Curioso sitio éste para un comentario %) N+1; 
writeln (£ y éste aún más *) (*N vale ahora ”, N); 


N:= N div Dos (4% podriamos poner 2 en vez de Dos 4) + 2; 


(k este programa sólo saca una frase por la pantalla x) 


wríiteln ("Lo siguiente a esto sale en otra línea.”); 
write (*Pero lo siguiente a esto no: *); 


) 
writeln (”Y, por fin, me despido.”) 


por el momento. Una solución sería elimi- 
narlas del programa, pero entonces ha- 
bría que volver a escribirlas cuando se 
necesitasen de nuevo. Hay una posibili- 
dad mucho más interesante: si delante y 
detrás de la zona a descartar ponemos, 
respectivamente, (* y *), el compilador 
creerá que todo es un comentario y pa- 
sará por encima olímpicamente: 


resaltar las diferentes partes de un pro- 
grama. En el programa ASIGNACION, por 
ejemplo, al declarar las variables, sus 
nombres aparecen encolumnados y un 
poco más a la derecha de la palabra 
VAR que marca el inicio de esa zona; 
igualmente, BEGIN y END están encolum- 
nadas, pero las instrucciones que enmar- 
can están todas un poco más a la de- 
recha. 

Por supuesto, no es obligatorio escribir 
así los programas, pero es muy conve- 
niente. Todos los programas que iremos 
escribiendo a lo largo de la colección 
harán un empleo aún mayor de la in- 
dentación. 


“ PASCAL 


E Tipos de datos 
básicos 


Hasta ahora hemos visto programas 
manejando básicamente dos tipos de 
datos: números y textos o caracteres 
sueltos. También hemos aprendido a es- 
cribir programas muy sencillos, que siem- 
pre constan de una secuencia de instruc- 
ciones que se ejecutan una detrás de 
otra, una única vez. Antes de empezar a 
estudiar cómo -hacer programas más 
complejos, vamos a ver en detalle los ti- 
pos de datos que ya conocemos y uno 
nuevo, el tipo BOOLEAN. 


(X esto muestra números: X) 


'readin (Edad); 
Peso := 73; 


Los operadores permitidos son: +, —, ”, 
DIV y MOD. Hay dos funciones EA, 
tes disponibles para este tipo de datos: 


— Si escribimos ABS (X), esto da como 
resultado el valor absoluto de X, o sea, X 
mismo si es positivo, o -X si es negativo 
(X puede ser cualquier constante, varta- 
ble o expresión de tipo INTEGER): ABS (-5) 
equivale a 5, al igual que ABS (7 - 2). 


— SAR (X) da como resultado el cua- 
drado de X, X por X (SQR es la contrac- 
ción de SQUARE, cuadrado en inglés): 
SQR (2 + 2) es 16 y SQR (-7) es 49. 

Estas funciones se pueden utilizar como 
parte de expresiones con total libertad, 
y equivalen a poner en su lugar el resul- 
tado que fueran a dar en el momento de 
evaluar la expresión. 

Los valores que se pueden manejar 
con constante, variables y expresiones 
enteras tienen unos límites que depen- 
den del ordenador y del compilador que 
tengamos. Para conocer estos límites 
existe una constante predeclarada (es 
decir, que se puede utilizar aunque no la 
hayamos declarado nosotros) cuyo nom- 
bre es MAXINT. 


writeln (123, EdadMaxima :5, 243 13); 
(Xx lo tecleado se guarda en Edad £) 
(k en Peso se guarda el nómero 73 4) 


¡Ol El tipo Integer 


Este tipo es el que corresponde a los 
números enteros. Ya hemos aprendido a: 


— escribir constantes: 123, -55, O, 
1987 

— declararlas: const EdadMaxima = 
110; 

— definir variables: var Edad: integer; 
Dia: 1..31; 

— escribir expresiones: (EdadMaxima 
- Edad) * 100 


También sabemos cómo mostrar valo- 
res de tipo INTEGER, leerlos desde tecla- 
do y guardarlos en variables: 


Por ello, si el valor de MAXINT («máximo 
entero») fuese 32767, que es el valor más 


" corriente con la mayoría de compilado- 


res para ordenadores personales, los va- 
lores de tipo INTEGER deben estar entre 
-32767 y +32767, ambos inclusive. Así, la 
expresión 1000 * 1000, por ejemplo, da- 
ría un resultado que se sale de los límites 
provocando o bien la parada del progra- 
ma o bien un resultado erróneo, según el 
compilador utilizado. Igualmente, la ex- 
presión 1000 * 1000 div 10000, aunque da 
un resultado aceptable (100), como se 
hace primero la multiplicación, produci- 
rá una situación similar al ser calculada. 

Para conocer nuestro límite particular, 
podríamos emplear el siguiente progra- 
ma: 


program MaximoEntero; 
begin 
wríteln ("Nuestro limite es ” 


»MAXINT)= 


Para cuando se tengan que manejar 
números que, o bien no son enteros, o 


bien se salen de los límites, existe el tipo 
REAL, que veremos en otra ocasión. 


IO El tipo Char 


Este tipo es el utilizado para manejar 
caracteres sueltos, es decir, una letra, 
una cifra, un signo de puntuación, un es- 
pacio en blanco, etc. Al igual que con el 
tipo INTEGER ya sabemos: 

— escribir constantes: 'A', 'O', '/”,'.”. 

— declararlas: const MiLetraFavorita = 
P”:; 

— definir variables: var Inicial: char: Ci- 
fra; *0'..'9”; 


así como mostrar y leer de teclado valo- 
res de tipo CHAR y guardarlos en va- 
riables: 


imcial:="2*; 
writeln (MiLetraFavorita, */*, Inicial); 
readin (Cifra); 


El conjunto de caracteres disponibles 


depende del ordenador, pero SIEMPRE 
existen, al menos, las 26 mayúsculas del 
alfabeto inglés: 


e 
1, W,X, Y, Z. 


las nueve cifras decimales: 


0,1,2,3,4,5,6,7, 8, 9. 


y el espacio en blanco. 


Ol Ordinales 


Internamente, y sin que nosotros nos 
demos cuenta de ello, los caracteres se 
guardan en memoria utilizando números, 
uno distinto para cada posible valor. 
Son lo que se denomina NUMEROS ORDI- 
NALES del conjunto de caracteres. 


Las letras están ordenadas según estos . 


números, Si, por ejemplo, el ordinal de la 
letra A fuera el 65, el de la B sería el 66 y 
así hasta la Z. Lo mismo sucede con las ci- 
fras del 0 al 9. 

Si se quisieran utilizar estos números en 
expresiones de tipo entero, la función 


ORD (C), donde C es un valor cualquiera 
de tipo CHAR, proporciona un resultado 
de tipo INTEGER igual al ordinal del carác- 
ter. A la inversa, si X fuera un valor de tipo 
INTEGER, CHROO nos proporcionaría el ca- 
rácter cuyo ordinal es X. 

Utilizando la función ORD, vamos a es- 
cribir un programa que nos sirva para co- 
nocer los ordinales de algunos caracte- 
res de nuestro ordenador: 


program Saca0rdinales; 
(K esta constante de texto es para escribir 
menos: £) const Txt = "El ordinal del carácter”; 


begin Fl 
writeln (Txt, *A”, * es *, ord (*A'+); * 
writeln (Txt, *a”, * es Y, ord (*a*)); 
writeln (Txt, "0", " es ”, ord (*0*));5 
writeln (Txt, "espacio en blanco es ”, 
ord (? ?)); ' 
(* poner aquí todos las instruecioada 
que se quieran: %)end. 


Existen además otras dos funciones: 

— PRED (C), donde C es un carácter, 
nos devuelve el carácter anterior a él. 
PRED ('Y') equivale, pues, a poner “X', 

— SUCC (C) devuelve el siguiente a C. 
(El lector atento se dará cuenta en segui- 
da de que PRED(C) equivale a poner 


CHR(ORD(C)-1) y 
CHR(ORD(C)+1.) 

Normalmente, en los ordenadores per- 
sonales se utilizan los códigos ASCII (si- 
glas de American Standard Code for In- 
formation Interchange, pronunciado 
«Aski») en que las letras mayúsculas em- 
piezan por el ordinal 65, las cifras por el 
48 y el espacio en blanco, por ejemplo 
tiene el 32. 

Por ahora, en lo referente a textos con 
más de un carácter, lo único que sabe- 
mos hacer es escribirlos y declararlos 
como constantes. Por supuesto, es posl- 
ble leerlos de teclado y utilizar variables 
para guardarlos, pero el tipo especial de 
dato necesario para ello se verá en otra 
ocasión. 


SUCC(C) a 


El tipo Boolean 


Si queremos que nuestros programas 
lleguen a ser más útiles de lo que son los 
que hemos escrito hasta el momento, 
está claro que deben ser capaces de to- 


A PASCAL 


mar decisiones en función de determina- 
dos resultados, Por ejemplo: 


«Si la edad es superior a 17 años, en-: 


tonces hacer tal cosa». 

Cuando el ordenador se encontrase 
con que tiene que tomar una decisión se- 
mejante, la primera operación que de- 
bería efectuar sería la de comparar la 
edad (que podría ser, por ejemplo, la 
contenida en una variable de tipo INTE- 
GER) con 17 para ver si es mayor o no. Si 
fuese mayor, el resultado de la opera- 
ción «Edad es superior a 17» sería CIERTO 
y en caso contrario sería FALSO. 

Las expresiones de este tipo, que pue- 
den dar como resultado CIERTO o FALSO, 
se llaman expresiones LOGICAS o de tipo 
BOOLEAN. 

En PASCAL existe el tipo de dato BOO- 
LEAN, que es aquél que sólo puede tomar 
uno de entre dos posibles valores, CIER- 
TO y FALSO, valores que se representan 
mediante las constantes predefinidas 
TRUE (cierto en inglés) y FALSE. 

— Al igual que sucede con los otros ti- 
pos que ya conocemos, podemos tener 
variables BOOLEAN donde guardar estos 
datos y que, por tanto, sólo pueden to- 
mar los valores TRUE y FALSE: 


var MayorDeEdad : boolean; 
— Se pueden asignar valores a esas 
variables: 
MayorDeEdad := true; 
— Se pueden mostrar valores BOO- 
LEAN: . 
« willeln (MayorDeEdad); 


(Esto último haría que se escribiera la 
palabra TRUE o FALSE, según el valor de la 
variable.) 


— Sin embargo, NO se puede utilizar 
READ O READLN con variables BOOLEAN. 


qu Comparaciones entre 
números 


Muy frecuentemente se desean com- 
parar números enteros para tomar deci- 


siones, como en el caso de la edad. Para 
ello se utilizan expresiones lógicas de 


- comparación que pueden dar como re- 


sultado el valor lógico TRUE o FALSE, según 
el caso. Estas expresiones siempre cons- 
tan de los dos valores a comparar (cons- 
tantes, variables o expresiones enteras) 
separados entre sí por un operador de 
comparación: 


Edad > 17 


Esta expresión debe leerse como 
«Edad mayor que 17», y daría TRUE o FAL- 
SE como resultado según que EDAD fuese 
mayor o no que 17, respectivamente. Po- 
dríamos poner, pues: 


MayorDeEdad := (Edad > 17); 


Además del operador de compara- 
ción «mayor que», cuyo símbolo es >, 
existen los siguientes: 


>= significa «mayor o igual que» 
< significa «menor que» 

<= significa «igual o menor que» 
= Significa «igual a» 

<> significa «distinto de» 


Además, la función ODD (X) (odd signi- 
fica impar entre otras cosas), donde X es 
un valor entero, devuelve el valor TRUE si 
X es impar y FALSE en caso contrario. 

Vamos a escribir un programa que 
guarde en una variable la edad que te- 
cleemos y nos diga a continuación si 
corresponde a un mayor de edad y si es 
una edad impar: 


program MiraEdad; 
const 
LimiteMenores = 17; 

var 

Edad 3 integer; 

MayorDeEdad : boolean; 

begin 

wríte  (*Por favor, teclee su edad: ”); 
readin (Edad); 

MayorDeEdad :=' (Edad > LimiteMenoras); 


(* ahora sacamos las respuestas con TRUE D 
FALSE: %) writeln (*¿Es mayor de edad? ”, 

MayorDeEdad); writeln (*¿Es una edad impar”? ?, 
odd (Edad)) end. 


Redirección 


y la salida 


S/DOS permite dirigir 
o redireccionar la en- 
trada o la salida de 
un programa, de ma- 
nera que ésta se pro- 
duzca donde desee 
el usuario, que bien 
puede ser a un fiche- 
ro o aun dispositivo periférico. Por ejem- 
plo, se puede redireccionar la salida de 
un comando para que el resultado, en 
vez de obtenerse por pantalla, aparezca 
por la impresora, o redirigir la entrada de 
un programa para que obtenga datos de 
un fichero en disco en vez del teclado. 

La redirección se especifica con los 
signos “<” para la entrada, y “>” para 
la salida. Por ejemplo, un comando con 
la sintaxis: 


orden > fichero 


estaría dirigiendo su salida hacia el fi- 


chero, cuyo nombre se especifica. De 


manera análoga se podría hacer: 


orden < fichero 


para redireccionar la entrada. 


de la entrada ' 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS MS/DOS (2) 


AS, 
PROGRAMA 


FICHERO EN DISCO 


PANTALLA 


VIOSIYAdMI 


M En MS/DOS es posible redireccionar tanto 
| lasalida como la entrada, ya sea a 

A ficheros en disco como a dispositivos 
periféricos. 


a Conexión de Programas 
- mediante «PIPES» 


Otra característica que posee MS/DOS 
es la de poder conectar programas me- 
diante un mecanismo llamado “pipe-li- 
ne” (tubería). La “conexión” consiste en 
que los resultados de un programa pue- 
den ser tomados por un segundo como 
datos de entrada, y la salida de éste 
puede ser a su vez la entrada de un ter- 
cero, y así sucesivamente. El operador 
utilizado para esto es el símbolo “':”, y el 
formato de dos programas conectados 
por “pipes” es: Programa 1: Programa 2. 


so OTROS LENGUAJES 


PROGRAMA 
1 


l A En MS/DOS los programas pueden 
conectarse de manera que la salida de 
uno sea la entrada de otro. 


Es importante resaltar el hecho de que 
el primer programa debe generar datos 
capaces de “alimentar” al programa 
que viene a continuación, el cual debe 

“consumirlos” y generar nuevos datos 
para que sean utilizados por el programa 
siguiente (si hubiese), y así hasta finalizar 
la cadena. 


Comandos fundamentales 
¡ de MS/DOS 


MS/DOS tiene un intérprete de coman- 
dos (el fichero COMMAND.COM), que es- 
pera a que tecleemos cualquier orden. 
Si es correcta, se encarga de procesar- 
la, y si no lo es devolverá un mensaje de 
error. Dentro de los comandos u órdenes 
que puede procesar este intérprete hay 
que distinguir dos tipos: 


— Comandos que están siempre en 
memoria RAM (interhos). 

— Comandos que están almacenados 
en disco (externos). 


Si empleamos una orden interna, 
COMMAND.COM no tiene más que mirar 
en la memoria RAM del ordenador y eje- 
cutarla. Si, por el contrario, hacemos re- 
ferencia a una orden externa, se provo- 
ca una búsqueda en el disco del fichero 
correspondiente a ese comando. 

Dentro de todas las órdenes de 
MS/DOS, hemos seleccionado las más im- 
portantes, las cuales hemos englobado 
en cuatro grupos: 


— Comandos de tratamiento y mante- 
nimiento de discos. 

— Comandos para operaciones con 
ficheros. 


SALIDA 


PROGRAMA 
2 


— Comandos de salida de ficheros. 
— Comandos de manejo de la estruc- 
tura de ficheros. 


Comandos de tratamiento 
y mantenimiento de discos 


Produce un listado de los ficheros y/o 
subdirectorios del directorio especifica- 
do. La información de este listado in- 
cluye: ' 


— Nombre y extensión del fichero. 

— Tamaño del fichero Xen bytes). 

— Fecha y hora de la última actualiza- 
ción del fichero (si nunca se ha modifica- 
do, fecha y hora de su creación). 

— Etiqueta del volumen del disco. 

— Número total de ficheros. 

— Espacio libre en disco. 


Asimismo, puede obtenerse esta infor- 
mación para un solo fichero, o para un 
grupo de ficheros especificados. 


CHKDSK 


Comprueba la situación de un disco en 
lo referente a espacio ocupado y posi- 
bles errores. En su opción normal de tra- 
bajo, CHKDSK muestra la siguiente infor- 
mación: 


— Espacio total en disco y en memo- 
ría RAM. 

— Espacio ocupado en disco por los fi- 
cheros del sistema (ocultos al trabajo de 
DIR). 

— Espacio ocupado en disco por los fi- 
cheros de usuario. 

— Espacio libre en disco y en me- 
moria. 


362496 bytes es el espacio total en disco 

38712 bytes en 2 archivo(s) oculto(s) 
221154 bytes en 11 archivo(s) de usuario 
102400 bytes disponibles en disco 


262144 bytes total en memoria 
222688 bytes libres en memoria 


Ejecución del comando CHKDSK. 


En cuanto a los errores, CHKDSK informa 
de lo siguiente: 


— Daños internos en el disco, como, 
por ejemplo, encontrar sectores o pistas 
inservibles. 


— Bloques de información no ligados 
a ningún fichero dentro del directorio. 


— Almacenamiento de los ficheros en 
sectores no contiguos. 


Realmente esto no es un error, pero 
hace que el acceso a los ficheros se 
haga más lento. Por tanto, si hay muchos 
en este estado, es conveniente pasarlos 
a otro disco. 


FORMAT 


El comando FORMAT es el encargado 
de preparar los discos vírgenes, para su 
posterior utilización como almacena- 
miento secundario de datos y progra- 
mas. 

Durante el formateo, el ordenador exa- 
mina el disquete, indicando los posibles 
defectos que éste pudiera tener. En caso 
de existir alguna anomalía, FORMAT hace 
dos cosas: 


— Advertir al usuario de la presencia 
de los defectos, indicando el tamaño en 
bytes de las zonas defectuosas, así como 
el espacio utilizable. 


[A Una de las funciones del comando 
FORMAT es marcar las áreas defectuosas 
de los disquetes. 


— Marcar el área defectuosa de ma- 
nera que ésta no sea utilizable por el sis- 
tema operativo, aunque sí el resto del 
disquete. 

Como casi todos los comandos, FOR- 
MAT tiene una serie de opciones que di- 
versifican sus funciones. Una de las más 
importantes es la que permite incluir los 
ficheros del sistema operativo en el dis- 
quete a formatear, con lo cual se puede 
emplear para inicializar el sistema. 


sYs 


El comando SYS permite cargar los fi- 
cheros del sistema operativo y las pistas 
de inicialización en un disquete previa- 
mente formateado. La diferencia que 
hay entre esta orden y el comando FOR- 
MAT con la opción antes mencionada es 
que SYS permite realizar esta operación 
en los discos protegidos, cosa que FOR- 
MAT no hace. 


DISKCOPY 


Con el comando DISKCOPY se copia el 
contenido de un disquete en otro dis- 
quete, de forma que se obtiene una re- 
producción exacta del original. En casi 
todas las versiones de MS/DOS, DISKCOPY 
formatea el disco destino en caso de que 
no lo esté. Además, no admite disquetes 
con defectos (aquéllos que detecta FOR- 
MAD), ni tampoco optimiza los resultados 
del disco, es decir, si en el disco origen 
estaban los ficheros distribuidos esporá- 
dicamente, en el disco destino se copia- 
rán con esa misma distribución. 


he OTROS LENGUAJES 


DISKCOPY 


El comando DISKCOPY reproduce de 
manera exacta el contenido de un 
disquete. 


DISKCOMP 


Con el comando DISKCOPY se copia el 
contenido de un disquete en otro dis- 
Normalmente utilizaremos DISKCOMP 
después de utilizar el comando DISK- 
COPY, para asegurarnos de que los dos 
disquetes son idénticos. Asimismo, pode- 
mos comparar sólo la primera cara de los 
disquetes mediante la opción correspon- 
diente. 


- Hay que resaltar que este comando 
compara disquetes completos. En caso 
de querer comparar ficheros por separa- 
do se utiliza la orden COMP. 


y EDICIONES y SIGLO y CULTURAL y 


